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INTRODUCTION 


Program TOLA (Take-Off and Landing Analysis) provides a non 
real time simulation of the dynamics of conventional aircraft during 
takeoffs and landings. The program models the performance of an 
aircraft during a takeoff roll or during the glide slope, flare, 
impact, and rollout of a landing. It includes the effects of a 
number of external and internal conditions such as wind shears, 
rough runway, engine failure, ground effect, etc. Extensive 
locumentation of the TOLA program — its capabilities, problem 
formulation, and user and programmer guides — have been written 
(Lynch 1972; Lynch and Dueweke 1974 a & b; Young and Dueweke 1975). 

TOLA has been modified to include a flexible airframe option 
(Dick and Benda 1975) and Is identified as program FATOLA at NASA 
Langley. Following validation of the flexible airframe analysis and 
some additional modifications to the program to improve its 
capabilities (Carden and McGehee 1977), a provision for actively 
controlled landing gear has been incorporated. The active control 
code simulates dynamic load control during impact and rollout, and 
during takeoff roll on rough runways. Additionally, a program 
restart capability has been added as well as other program 


enhancements 
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This report includes a brief description of the added 
capabilities, a detailed description of specific program changes, 
and includes information required for a user to exercise the new 
options. A complete listing of the modifications to the FATOLA 
program is included as an appendix. 
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1. ADDED PROGRAM CAPABILITIES 


The FATOLA program has been modified to provide for actively 

controlled landing gears, metering pin area as a function of strut 

stroke, and continuously varying aerodynamic coefficients and 

0 

C N . A restart capability has been added to the program. 

0 


1.1 Active C ontrol Landing Gear - The active gear limits the force 
applied at the gear-airframe interface by limiting the shock strut 

force (FORSST) with a closed loop series-hydraulic control. An 

* 

impact limit force (WLFOR) is determined from the value of the 
gear-airframe interface force (WFORT) very shortly after aircraft 
touchdown. This determination is made when the work potential of 
the strut (energy dissipation potential) exceeds the aircraft energy 
at touchdown apportioned among the main gears. The gear-airframe 
interface force is compared with the impact limit force, the shock 
strut force then being adjusted to bring the gear-airframe interface 
force within specified limits about the control impact limit force. 

After the initial impact energy has been dissipated and the 
aircraft is in the rollout phase of the landing simulation, the 
control limit force is reduced to a value where the shock strut 
force is controlled to support the aircraft weight. The transition 
from impact limit force (WLFOR) to rollout limit force (WLFORR) is 
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carried out smoothly by the use of a ramp function from impact to 
rollout. Active control performs similarly during a takeoff roll by 
using the rollout limit force value to control the interface force 
experienced when accelerating on a rough runway. A detailed 
description of the active control model is presented in a technical 
note by McGehee and Carden (1976). 


1.2 Implementation of the Active Control Code - In FATOLA, the 
landing gear dynamics are modeled in subroutines LGEAR1 and LGEA3C. 
The active control subroutines replace the passive shock strut 
calculations in LGEAR1 (see Figs. 1 & 2). However, passive gear 
calculations can be made using the active gear subroutines. The 
control code is integrated into FATOLA by defining the gear-airframe 
interface force in terms of the total force applied to the aircraft 
center of gravity, which is computed in FATOLA. The active code 
returns a value for the shock strut force which is a term used in 
the FATOLA calculation of the shock strut acceleration: 
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FIGURE 1: SUBROUTINE LINKAGE FOR CALCULATION OF PASSIVE 


LANDING GEAR DYNAMICS (ORIGINAL FATOLA ROUTINES) 
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The active control feature has been incorporated in FATOLA with 
eight new subroutines: 

D1RACT — block data input variables 

ACTIN — reads active control input variables 

ACTINIT — initializes the active control variables 

ALGEAR1 — performs the main active control calculations 

ACTNG — performs the active nose gear calculations 

PHL0Z2 — calculates initial servovalve hydraulic variables 

FL0ZE2 — calculates servovalve hydraulic variables 

LIMITS — sets limits on servovalve power spool motion and 

displacements 

The active control variables have all been blocked into labeled 
common, including the additional input variables. This common block 
is named ACTIVE and has been added to FATOLA subroutines EXE, 0PT1, 
LGEA3C, and SDFLGP, as well as the active subroutines ACTINIT, 
ACTIN, and ALGEAR1. See Tables 1 and 2 for lists of the added input 
variables and other key program variables. 

The active control mode is enabled by setting the landing gear 
type indicator switch (INDLG) to -3 in the input data set. Tests 
are performed on this indicator whenever gear calculations are 
needed, leading to calls to the active subroutines rather than to 
the LGEAR3 entry point. To perform passive gear calculations, using 
the active gear subroutines, the switch IMODE(I) must be set to zero 



8 


for each gear. Set IMODE(I) to one for each gear for active gear 
calculations. These tests take place in subroutines EXE and 0PT1. 
Subroutine SDFLGP has been extensively modified to output values of 
selected active control variables to a listing and to a plot data 
file. 

TABLE 1 

INPUT VARIABLES 


VARIABLE 

NAME 

TYPE 

UNITS 

0 

DESCRIPTION 

AMUH 


LBF- 

SEC/FT 2 

Dynamic viscosity of 
hydraulic fluid 

APINT 

ARRAY 

FT 2 

Area of metering pin as 
function of strut stroke 

AREA1 

ARRAY 

FT 2 

Area of strut hydraulic 
chamber (piston) 

AREA2 

ARRAY 

FT 2 

Area of strut pneumatic 
chamber (cylinder) 

AREA3 

ARRAY 

FT 2 

Area of chamber between 
piston and cylinder 

AREMO 

ARRAY 

FT 2 

Area of strut main 
orifice 

ARE03 

ARRAY 

FT 2 

Orifice area of chamber 
between piston and cylinder 

BETA 


LBF/IN 2 

Bulk modulus of hydraulic 
fluid 

BLMU 

ARRAY 

— 

Coefficient of friction 
for strut lower bearing 




BUMU 

ARRAY 


Coefficient of friction 
for strut upper bearing 

CDMOC 

ARRAY 

— 

Strut main orifice compres- 
sion discharge coefficient 

CDMOE 

ARRAY 

• — 

Strut main orifice exten- 
sion discharge coefficient 

CDSV 

ARRAY 

— 

. Servovalve orifice 
discharge coefficient 

CD3 

ARRAY 


Discharge coefficient for 
chamber between piston 
and cylinder 

CFFOR 

aRRAY 

LBF 

Coulomb friction force 
between piston and 
cylinder bearings 

DIOTA 


DEGREES 

Angle between body x-axis 
and wing main chord 

DSV 

ARRAY 

INCHES 

Diameter of servovalve 
spool 

EPSILO 

ARRAY 

LBF 

Tolerance about impact 
control limit force 

EPSROL 

ARRAY 

LBF 

Tolerance about rollout 
control limit force 

EPSSLP 


LBF/ SEC 

Time rate of change of 
tolerance about transi- 
tion control limit force 

ETASV 


1/SEC 

Damping coefficient in 
servovalve transfer 
function 

FWORK 

ARRAY 

— 

Coefficient for selecting 
value of impact limit 
force 



GAMAH 

ARRAY 

LBF/FT 3 

Specific weight of 
hydraulic fluid 

GNR 


~ 

Constant — set to 0.0 

IMODE 

INTEGER 

ARRAY 

— 0-0ff 

l=On 

Switch to select active 
control for each gear 

IRST 


— 0=None 
l=Write 
2=Read 
3=Read/ 
Write 

Restart indicator 

KAPT 

INTEGER 

ARRAY 

— 0=No Pin 

l=Constant 

Area 

2=Variable 

Area 

Indicator for metering 
pin 

LTAB10 

REAL 

ARRAY 

— 

Cjj limiting value 
0 

LTAB80 

REAL 

ARRAY 

— 

limiting value 

0 

OHRUN 


DEGREES 

Runway slope 

PATM 


LBF/FT 2 

Atmospheric pressure 

PERCNT 

ARRAY 

— 

Constant 

PGAHAC 

ARRAY 

LBF/FT 2 

Pressure in high pressure 
control reservoir 

PGALAC 

ARRAY 

LBF/FT 2 

Pressure in low pressure 
control accumulator 

PGA1I 

ARRAY 

LBF/FT 2 

Strut hydraulic 
charging pressure 

PGA2I 

ARRAY 

LBF/FT 2 

Strut pneumatic 
charging pressure 

PGA3I 

ARRAY 

LBF/FT 2 

Hydraulic pressure in 


chamber between strut 
piston and cylinder 
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PINM 

ARRAY 

FT 2 

Main gear metering pin 
area table 

PINN 

ARRAY 

FT 2 

Nose gear metering pin 
area table 

QPUMPS 

ARRAY 

ft 3 /sec 

Maximum hydraulic 
pump flow rate 

RCLSV 

ARRAY 

INCHES 

Radial clearance between 
spool and sleeve of 
servovalve 

RHOH 


SLUGS /FT 3 

Mass density of. 
hydraulic fluid 

RTAB10 

ARRAY 


Cjj rate of change 

A 

RTAB80 

ARRAY 


U 

C^ rate of change 

A 

STROM 

ARRAY 

FT 

U 

Main gear stroke table 
for pin area 

STION 

ARRAY 

FT 

Nose gear stroke table 
for pin area 

TAUF 


SEC 

Time constant in strut 
position feedback loop 

TCI 


SEC 

Time constant of elec- 
tronic compensation network 

TC2 


SEC 

Same definition as TCI 

TC3 


SEC 

ft II It II 

TC4 


SEC 

It II It It 

VOLACI 

ARRAY 

FT 3 

Total volume of high 
pressure accumulator 

VOLANT 

ARRAY 

FT 3 

Initial volume of charging 
nitrogen of high pressure 


accumulator 
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VOL 11 

ARRAY 

FT 3 

Initial volume of hydraulic 
fluid in shock strut piston 

VOL2I 

ARRAY 

FT 3 

Pneumatic volume of 
charged strut 

VOL3I 

ARRAY 

FT 3 

Volume between strut piston 
and cylinder 

WC 


SEC" 1 

Corner frequency in active 
control servovalve 
transfer function 

WC1 


SEC" 1 

Natural frequency in 
electronic compensation 
network 

WLFOR 

ARRAY 

LBF 

Control limit force for 
impact 

WLFORR 


LBF 

Control limit force for 
rollout 

WSV 


SEC" 1 

Natural frequency in active 
control servovalve transfer 
function 

WSV1 


IN 

Window width of servovalve 
orifice for high pressure 

WSV3 


IN 

Window width of servovalve 
orifice for low pressure 

XBIAS 

ARRAY 

IN 

Servovalve spool displace- 
ment for controlling strut 
charging pressure 

XDDMAX 

ARRAY 

IN/SEC 2 

Maximum positive accelera- 
tion of servovalve spool 

XDDMIN 

ARRAY 

IN/SEC 2 

Maximum negative accelera- 
tion of servovalve spool 
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XKA 

ARRAY 

AMPS /VOLT 

Amplifier gain in active 
control loop 

XKF 

ARRAY 

VOLT/ IN 

Position feedback gain in 
strut position control loop 

XKSV 

ARRAY 

IN/AMP 

Position gain of servovalve 
in active control loop 

XLPSV1 

ARRAY 

IN 

Overlap or underlap 
between spool and sleeve 
at null for flow Q1 

XLPSV3 

ARRAY 

IN 

Overlap or underlap 
between spool and sleeve 
at null for flow Q3 

XSCOM 

ARRAY 

IN 

Commanded (static) 
position of shock strut 

XSTHR 


FT Elec cont. 
function 
not used 
in program 

Threshold strut stroke for 
determining takeoff or 
landing mode 

XSVDMN 

ARRAY 

IN/ SEC 

Maximum negative velocity 
of servovalve spool. 

XSVDMX 

ARRAY 

IN/ SEC 

Maximum positive velocity 
of servovalve spool 

XSVMAX 

ARRAY 

IN 

Maximum positive displace- 
ment of servovalve spool 

XSVMIN 

ARRAY 

IN 

Maximum negative displace- 
ment of servovalve spool 

ZETAC1 



Damping coefficient in 
electronic compensation 
network 

ZETAC2 



Damping coefficient in 
electronic compensation 
network 
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TABLE 2 

OTHER VARIABLES 


VARIABLE 

NAME 

TYPE 

INITIAL 
UNITS VALUE 

DESCRIPTION 

ACON 


SEC^ 

l./W gv **2*W c 

AIC 

ARRAY 

0.0 

Switch for regulating flow 
between strut piston and 
cylinder 

AP2TO 

ARRAY 

LBF/FT 2 

Absolute value of pneumatic 
charging pressure in strut 

BOON 


SEC 2 

l./W sv **2+2.*^ v /(W sv *W c ) 

BLFORT 

ARRAY 

LBF 

Normal force between strut 
piston and cylinder at 
lower bearing 

BUFORT 

ARRAY 

LBF 

Normal force between strut 
piston and cylinder at 
upper bearing 

CCON 


SEC 

2 -*W W sv +1 ‘/ W c 

CMASNG 


SLUGS 

Effective mass at nose 
gear root 

COEFO 

ARRAY 

FT 2 / 

LBF-SEC^ 

Strut main orifice flow 
coefficient modified for 
dY h /dP 

COEF1 

ARRAY 

IN 2 / 

sec/lbf 

Coefficient of flow from 
high-pressure accumulator 
to strut piston 

COEF3 

ARRAY 

9 

IN / 

sec/lbf 

Coefficient of flow from 
strut piston to low-pressure 
reservoir 

COPA 


— 

cos ( H a ) 
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CSV1 

CSV3 

DCON 

DELTX 

DELTX1 

DF 

DLTX1D 

DMD1 

DMTANH 

DPI 

DSTOP 

DWFORT 

ENCG 

ENUP 


ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 


FT 3 / 

sec/lbf 


Servovalve orifice 
coefficient from accumu- 
lator to strut piston 

FT 3 / 

sec«£bf 

1.0 

Servovalve orifice 
coefficient from strut 
piston to reservoir 

inches 

0.0 

Difference between strut 
stroke and command stroke 

VOLTS 


Product of DELTX and posi- 
tion feedback gain in 
piston control loop 

LBF 

0.0 

Variation of gear-airframe 
interface force about 
control force 

VOLTS/ 

SEC 

1.0 

Time rate of change of 
DELTXl 


ARRAY 


Restart data block 


ARRAY — 

ARRAY LBF-SEC/ 0.0 

FT 2 

FT .004 

LBF 
FT-LBF 

ARRAY FT-LBF 0.0 

0.0 


Function of hyberbolic 
tangent 

Time rate of change of 
hydraulic pressure in 
strut piston 

Stopping distance for 
strut extension stop 

Earth axes force at aircraft 
center of gravity 

Kinetic energy at aircraft 
center of gravity 

Kinetic energy of aircraft 
at landing gear root 

Strut axial friction force 


FFORT 


ARRAY 


LBF 
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FONHST 

ARRAY 

LBF 

0.0 

Ground force normal to 
strut axis 

FORCHT 

ARRAY 

LBF 

0.0 

Charging force in fully 
extended strut 

FORSST 

ARRAY 

LBF 

0.0 

Strut force along strut 
axis 

FSTOP 

ARRAY 

LBF 

0.0 

Strut extension stop force 

FSTOPK 


LBF /FT 

0.0 

Strut extension stop 
spring rate 

HMM 

ARRAY 

— 

0.0 

Active control operation 
indicator 0=off, l=on 

IA1 

ARRAY 


0 

Indicator for defining the 
return of notch-network 
compensation current to 
zero when gear is fully- 
extended during rebound; 
=0, non-zero current; 

=1, zero current 

IA2 

ARRAY 

— 

0 

Same as IA1 

IA3 

ARRAY 

— 

0 

Same as IA1 

IA4 

ARRAY 

— 

0 

Same as IA1 

IA6 

ARRAY 


0 

Indicator for defining the 
return of first lead-lag 
network compensation cur- 
rent to zero when gear is 
fully-extended during 
rebound: 

=0, non-zero current; 

=1, zero current 

IA7 

ARRAY 

— 

0 

Same as IA6 
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IA9 

ARRAY 


0 

Indicator for defining the 
return of second lead-lag 
network compensation cur- 
rent to zero when gear is 
fully-extended during 
rebound : 

=0, non-zero current; 

=1, zero current 

IA10 

ARRAY 

— 

0 

Same as IA9 

ICOSV 

INTEGER 

ARRAY 

J 

0 

Servovalve control indi- 
cator for return to null 
position 

ICU 

ARRAY 


0 

Indicator for defining 
when the fluid volume in 
the strut piston has 
returned to the fully- 
extended strut value during 
rebound : 

-0, has not returned; 

=1, returned 

IFR 

INTEGER 

ARRAY 

. — 

0 

Indicator for selection of 
tanh function 

IFSTOP 

INTEGER 

ARRAY 

— 

0 

Indicator for strut 
extension stopping force 

IGE 

ARRAY 


0 

Indicator for defining 
fully-extended gear during 
rebound: 

=0, gear compressed; 

=1, gear fully-extended 

IGO 

ARRAY 


0 

Indicator for defining 
accelerated return of 
servo-controller para- 
meters to fully-extended 
gear values: 

=0, inactive; 

=1, active 

IIXSVH 

INTEGER 

ARRAY 

— 

0 

Indicator for servovalve 
returning to null from 


high pressure 
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IIXSVL 

INTEGER 

ARRAY 


0 

Indicator for servovalve 
returning to null from 
low pressure • 

ITRIP 

ARRAY 


0 

Indicator for defining the 
return of gear and servo- 
valve parameters to fully- 
extended gear values: 

=0, inactive; 

=1, active 

INDEACT 

INTEGER 

ARRAY 

' 1 

0 

Indicator for control 
regime 0=off, l=impact, 
2=rollout 

INITSW 

INTEGER 


1 

Switch indicating first 
pass through program 
l=first pass 

IOPCO 

INTEGER 

ARRAY 


1 

Indicator for control 
operation during return 
to null position 

IP ASS 

INTEGER 

ARRAY 

— 

0 

It 

IPSTOP 

INTEGER 

— 

0 

11 

IQCU 

ARRAY 


0 

Indicator for defining 
when the cumulative fluid 
volume supplied by the 
control system has returnee 
to zero when the strut is 
fully-extended during 
rebound: 

=0, non-zero; 

=1, zero 

ISET 

INTEGER 

ARRAY 

— 

1 

See IOPCO 

ISTROK 

INTEGER 

ARRAY 

— 

0 

Indicator for strut stroke 
initialization 
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IXS 

ARRAY 


0 

Indicator defining the 
condition of servovalve 
spool displacement equal 
to bias value for the 
fully-extended strut during 
rebound : 

=0, unequal 
=1, equal 

IXSVH 

INTEGER 

ARRAY 


0 

Indicator for control 
operation during return 
to null position 

IXSVL 

INTEGER 

ARRAY 

— 

0 

IV 

NAC 

INTEGER 

ARRAY 


0 

Fluid flow indicator 
0=off ; 

l=from strut; 

2=to strut 

NITER 

INTEGER 

“ 


Number of iterations 
required to converge to 
solution 

PGA1T 

ARRAY 

LBF/FT 2 


Gauge pressure of hydraulic 
fluid in strut piston 

PGA2T 

ARRAY 

LBF/FT 2 


Gauge pressure of nitrogen 
in strut cylinder 

PGA3T 

ARRAY 

LBF/FT 2 


Gauge pressure of hydraulic 
fluid in volume 3 

PGA1T1 

ARRAY 

LBF/FT 2 


See PGA1T 

PR 

ARRAY 

LBF/IN 2 


Servovalve return pressure 

PS 

ARRAY 

LBF/IN 2 


Servovalve supply pressure 

PI 

ARRAY 

LBF/IN 2 


Strut piston pressure 

QC 

ARRAY 

in 3 /sec 

0.0 

Flow rate to the load 

QO 

ARRAY 

ft 3 /sec 

0.0 

Flow rate through strut 
main orifice 
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QS1 

ARRAY 

IN 3 /SEC 


Flow rate from accumulator 
to strut piston 

QS3 

ARRAY 

in 3 /sec 


Flow rate from strut 
piston to reservoir 

QSV 

ARRAY 

ft 3 /sec 


Fluid flow rate through 
servovalve, positive from 
supply to strut 

QSVCU 

ARRAY 

FT 3 

0.0 

Cumulative volume of fluid 
added to or removed from 
strut 

QSVN 

ARRAY 

ft 3 /sec 

0.0 

Volume expansion or 
compression rate of nitrogen 
in high pressure accumulator 

QSV1 

ARRAY 



See QS1 

QSV 3 

ARRAY 



See QS3 

QTOLER 


IN 3 /SEC 

.0001 

Tolerance allowed in 
calculating flow rates 

REDSLP 

ARRAY 

LBF/SEC 

1.E5 

Slope for reducing control 
limit force from impact 
value to rollout value 

RESA 

ARRAY 


0.0 

Control activation switch 

SA 

ARRAY 


0.0 

11 

SBFOT 



0.0 

Strut elastic bending 
force 

SIP A 


- 


sin (<(*<*) 

UNSPRNG 


SLUGS 


Mass of strup piston and 
gear components attached 

VCUM 

ARRAY 

FT 3 

0.0 

Cumulative volume of fluid 
flowed from piston to 
cylinder 

VELDEC 

ARRAY 

FT /SEC 

0.0 

Velocity for initiating 


transition from impact 
limit force to rollout 
value 
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VMASS 

ARRAY 

SLUGS 


Vehicle mass 

VOLAHT 

ARRAY 

FT 3 


Volume of hydraulic fluid 
in high pressure accumu- 
lator 

VOLANT 

ARRAY 

FT 3 


Volume of nitrogen in high 
pressure accumulator 

V0L1T 

ARRAY 

FT 3 


Volume of hydraulic fluid 
in strut piston 

V0L2T 

ARRAY 

FT 3 


Pneumatic volume in strut 
cylinder 

V0L3T 

ARRAY 

FT 3 


Volume between piston 
and cylinder 

WFORT 

ARRAY 

LBF 

0.0 

Gear-airframe interface 
force 

XMA 

ARRAY 

AMPERES 


Input signal to 
electronic compensation 
networks 

XMA1 ... 4 

ARRAY 

II 

0.0 

modification of input 
signal to the notch and 
lead-lag networks 

XMA5 

ARRAY 

II 


ii 

XMA6,7 

ARRAY 

II 

0.0 

ii 

XMA8 

ARRAY 

AMPERES 


ti 

XMA9.10 

ARRAY 

AMPERES 


it 

XMAll 

ARRAY 

AMPERES 


Output signal from 
electronic compensation 
networks to servovalve 

XMU 


CENTIPOISE 


Viscosity of hydraulic 
fluid 

XSTOT 

ARRAY 

FT 


Instantaneous stroke 


required to dissipate 
remaining kinetic energy 
at simultaneous force level 
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xsv 

ARRAY 

INCHES 


Servovalve spool displace- 
ment 

XSVDD 

ARRAY 

IN/SEC 2 

0.0 

Acceleration of servovalve 
spool 

XSVDDD 

ARRAY 

IN/SEC 3 

0.0 

Jerk on servovalve spool 

XSVDOT 

ARRAY 

IN/ SEC 

0.0 

Velocity of servovalve 
spool 

XVALVE 

ARRAY 

IN 


Analytically controlled 
servovalve spool dis- 
placement 

ZD ANT 


FT/SEC 


Velocity of nose gear root 

ZSSC 

ARRAY 

FT 


Allowable strut stroke for 
activating control 
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1.3 Stroke Dependent Metering Pin Area - Following implementation 
of the active control landing gear, an additional capability was 
required to model the F4 aircraft landing gears. The metering pin 
area was allowed to have either a constant value (the original 
design) or to be functionally dependent on the strut stroke. No new 
subroutines were required and modifications were limited to the 
active input routines, ACT1NIT, and ALGEAR. Input variables are 
presented and defined in Table 1. 


1.4 Variable Aerodynamic Coefficients - The use of staging to 

introduce changes in the aerodynamic coefficients and was a 

0 0 

cumbersome process and led to discontinuities in program results. 
New program variables were introduced to allow the specification of 
a rate of change for each of these coefficients providing a much 
smoother transition. This feature required two new subroutines: 

AER04 — initializes and updates coefficients J 

AEROIN — reads rates and limiting values 

the new variables have been stored in a new common block, AEROCO. 
Input variables are included in Table 1. 



24 


1.5 Restart Capability 


Recent attempts to model the F4 gear have shown that at the 
time of touchdown extremely large changes occur in several variables 
resulting in a small integration step size. The final result is a 
large amount of computer time. The problem was compounded by having 
to rerun the entire simulation whenever a program failure was exper- 
ienced. 

The introduction of a restart capability eliminated the problem 
of total reruns. Whenever any data is staged into the program, a 
disk file is generated which contains all the information required 
to restart the program from that point in time. Thus when program 
failure occurs, it is only necessary to rerun from the most recent 
stage. This technique has been found etremely useful in the anal- 
ysis of the effects of various runway conditions. Rather than run- 
ning the entire landing simulation for each runway to be considered, 
it is now only necessary to begin the simulation at that point in 
time where the runway bump is encountered. 

No new subroutines were required, but many existing routines 
were modified by relocating their local variables into labeled 
common blocks. With all program variables in common blocks declared 
in the main program, their storage locations are contiguous and a 
single read or write transfers the entire block of restart data. 
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New program variables required for the restart option are included 
in Tables 1 and 2. 
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2. CHRONOLOGICAL HISTORY OF PROGRAM MODIFICATIONS 

Numerous program changes have been made to the FATOLA program 
since the last formal documentation (Reference 3) in 1975. A total 
of 52 UPDATE corrections sets have been applied since that time. 
Numerous modifications were performed by Structures and Dynamics 
Division (SDD) personnel and were reported in References (1) and 
(2). The remaining coding changes were performed by Computer 
Sciences Corporation (CSC) personnel. For' the sake of completeness, 
all SDD and CSC modifications are included in this history. 

2.1 Structures and Dynamics Division Modifications - Beginning in 
November 1975 and ending in November 1978, several improvements were 
made to the FATOLA program to enhance its simulation capabilities. 
The net effect of the three correction sets C82477, Cl 1778, and 
SDDMODS is reported in References (1) and (2) with the following 
exceptions . 

In program TOLA, the call to FTNBIN was commented out when the 
Integrated Computer Operating System (ICOPS) was replaced with the 
Network Operating System (NOS). 

Dummy space was not added to the end of the DIRCOM common block 
in subroutine TFFS9 as reported in Reference (2). This addition is 
not necessary for proper program execution. 
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A call to subroutine FLEX5 was inserted in subroutine 0PT1 
immediately before the call to FLEX6. The reason for this addition 
is not apparent since it is a do-nothing entry point. 

The function ATAN2 was declared EXTERNAL immediately following 
the SUBROUTINE LGEA3C statement. Again, there is no apparent reason 
for this addition. 

In an attempt to prevent over-extension or compression of the 
struts, coding changes were made to two subroutines. In subroutine 
LGDET, the FORMAT statements labeled 49 and 53 were replaced by the 
following statements 

j 49 FORMAT ( 58X* 4H— E$ ( > II# 19H) EXCEEDED IN LGDET^i 
53 FORMAT ( 58X*4H ES(,I1>20H) EXCEEDED IN LGDET / 

The following lines of code were inserted before statement number 
50, 


Y(J)»-.5*ES<I) 
Y ( 4 J ) •-1* 0E-10 
P(J4»— 1.0E-10 


and the statements between and including statement numbers 51 and 21 
were replaced with the following. 


51 IF(SD2(1#I).LT.0.)G0 TO 30 
IF(SDl(l#I)«LT.0.)SDl(l>I)-0. 
GO TO 55 
30 SD2 ( 1» I ) s 0« 

SD1 (1# I ) a 0 • 
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In subroutine LGEAR1 , the formats were similarly replaced as 
follows . 

49 FORMAT (58 X# 4H— ES ( » 1 1* 2 OH ) EXCEEDED IN LGEAR1 / , 

(53 F0RMAT(58X*.4H ES(#I1#20H) EXCEEDED IN LGEAR1/ 

the following code was inserted before statement number 50 


s(i#n— o.5*ES(i) 
SD1(1>I)— 1.0E-10 
SD2(1,IJ — 1.0E-10 


and the two lines beginning with statement number 51 were replaced 
with the following. 


51 IF(SD2(1,I).LT.0.)G0 TO 30 
IF(SD1(1*I).LT.0.)SD1(1,I)»0. 
GO TO 55 
30 SD2(l,I)-0. 


Additionally, the following code was inserted immediately before 
statement number 20. 

PE-CHECK SHOCK STRUT FORCE FOR RE-CONDITIONED FULLY EXTENDED STATE 
IF (SOI (l#I).EQ.O.O.AND.FT(I).LE.ABS<SF(in)SF(I)»-FT(I ) 

2.2 Computer Sciences Corporation Modifications - In early 1978, 

CSC was requested to support a major modification to the FATOLA 

* 

program, by introducing the capability of an active control landing 
gear. A mathematical model of an active control landing gear 
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(ACOLAG) had been developed and programmed (Reference 7), however 
this program did not include airframe elastic effects. The goal of 
the program modifications was to incorporate the series-hydraulic 
active control logic and equations for all landing gear 
oleo-pneumatic shock struts into the FATOLA computer program. 


The correction idents ACOBLK, CSCMODS, ACTINIT, ALGEAR, PHL0Z2, 
FLOZE2, and LIMITS contained the code required for a first cut at 
implementing the active control. A comdeck, ACOBLK, was inserted 
following the deck TOLA to establish a common block containing the 
active gear variables. The original contents of this common block 
are shown below. 


C*************************** 


ACTIVE VARIABLES ************************** 


COMMON /ACTIVE/ AMUH 

>AC0N 

t BCON 

t CCON 

t OCON 

1# APINT (5) 

t AP2T0 ( 5 ) 

» AREA1 (5 ) 

* ARE A2 ( 5 ) 

* AREA3(5) 


2> AREMO ( 5) 

t ARE03 ( 5 ) 

*BLFQRT(5) 

t BLMU(5 ) 

9 BUFORT ( 5 ) 

t BUMU ( 5 ) 

3# BETA 

jCDMOCC 5) 

*CDMOE { 5 ) 

> CDSV ( 5 ) 

>CF FOR ( 5 ) 

>C D3 ( 5 ) 

4>CQEF 

*C0EF0(5) 

>CQEF3( 5) 

t COP A 



5> CSV1 ( 5 ) 

*C SV3 ( 5 ) 

>DELT 

t DELTX(5) 

t DELTX1 ( 5 ) 

t 0LTX1D ( 5 ) 

6,DF(5) 

>DP1 ( 5) 

>DS V( 5) 

>DSTQP 

> DI OTA 

>0MTANH(5) 

It ENUP ( 5 ) 

> EPSIL0( 5 ) 

» E PSROL ( 5 ) 

t EPSSLP 

t ETASV 

> FSTOPK 

8t FFORT ( 5 ) 

>FQAHST (5) 

t FONHST ( 5 ) 

t FORCHT ( 5 ) 

* FORSST ( 5 ) 

> FSTOP ( 5 ) 

9,GAMAH(5) 

> GAM AN 

»GNR 

t HMM ( 5 ) 

t ICOSV ( 5 ) 

t IDEACT 

*t I F R I C 5 1 

t I IXSVH ( 5 ) 

t IIXSVL (5 ) 

> IOPCO ( 5 ) 

t IPASS ( 5 ) 

>ISET( 5) 

1,IXSVH(5) 

$ IXSVL<5) 

9 IFSTOP ( 5 ) 

> IS TROK ( 5 ) 

>KAPT(5) 


2 1 NAC ( 5 ) 

>NITER 

t OMRUN 

> PATH 



3>PERCNT ( 5 ) 

t PGAHAC ( 5 ) 

* PGAL AC ( 5 ) 

t PGA1 1 ( 5 ) 

»PGA1T (5 ) 


4> PGA2I (5) 

t PGA2T ( 5 ) 

> PGA3I ( 5 ) 

t PGA3T { 5 J 



5,PR<5) 

> PS ( 5 ) 

» PI ( 51 

t QC ( 5 ) 

>QO(5) 

t QPUMPS ( 5 ) 

6,QSV<5) 

* QSVCU<5) 

>QSVN(5) 

> QSV1 (5 ) 

>QSV3(5) 

> QS1 ( 5 ) 

7> QS3 (5 ) 

> QTOLER 

>RCLS V ( 5 ) 

t REDSLP ( 5 ) 

,RHOH 

>S BFOT 

8# S IP A 

>SA(5) 

t RESAC5) 

t T AUF 

> TC 1 

> TC2 

COMMON /ACTIVE/ TC3 

>TC4 

> VCUM( 5 ) 

t VELDEC 

* V0L1I ( 5 ) 

1>V0L1T(5) 

t V0L2I ( 5 ) 

* V0L2T (5) 

t V0L3I (5) 

t V0L3T (5) 

9 WC 

2>WC1 

#WF0RT (5) 

t WLFOR { 5 ) 

# WLFORR 

*XB IAS ( 5 ) 

> X VALVE ( 5 ) 

3 * XK A ( 5 ) 

t XKF ( 5 ) 

*XKSVf 5) 

> XLPSV1 ( 5 ) 

t XLPSV3 (5) 

t X STHR 

4,XMA<5) 

> XH A1 ( 5 ) 

> XM A2 ( 5 ) 

t XMA3 ( 5 ) 

9 XMA4(5 ) 

* XMA5 ( 5 ) 

5t XMA6 ( 5 ) 

t XMA7 < 5 ) 

t XMA8( 5) 

> XMA9( 5 ) 

t XMA10( 5 ) 

> XMA11 ( 5 ) 

6t XMU 

>XSC0H<5) 

* XSTOT (5) 

» XS V ( 5 ) 

* XS VDOT ( 5 ) 

» XSVDD ( 5 ) 
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7#XSVDDD(5)- #XSVDMN(5) ,XSVDMX(5> ,XSVMAX(5> ,XSVMIN{5> ,XDDMAX<5) 

8»XDDMIN( 5) > VOLAC 1(5) >V0LAHT(5) ,V0LANI(5) >V0LANT(5) 

9,WSV ,WSV1 #WSV3 > ZET AC1 »ZETAC2 »ZSSC 

£****+♦♦♦♦♦♦♦*♦♦♦*♦♦♦**♦♦♦♦♦**♦♦♦♦♦*♦♦♦*♦♦♦♦*♦♦**♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦***** 


New decks ACTINIT 

, for initializing the 

active gear 

variables , 

and 

ALGEAR , PHL0Z2 , 

FL0ZE2, and LIMITS, 

containing 

the 

active 

gear 

logic, were added 

after the LGEA3C deck. These 

new 

decks 

are 


provided below. 


SUBROUTINE ACTINIT 
C 

Q**4 i**t************** fatola variables ♦♦♦♦♦♦*♦♦*♦♦♦♦♦♦♦♦****♦**♦♦***♦ 

C0MM0N/DIRC0N/DM1(115)>ALPHD>DM1A(20)>AMASS#DM2( 147 )>DCL1>DCM1> 
CDCN1*DCL2,0CM2,DCN2,DCL3,DCM3,DCN3,DM3(99),FXB7P, 
CDUMM3)>FYB7P(4)>FZB7P,DM5<17),GXB7F,DM6(8),GZB7F, 

CDM7(218>, INDSTE(A8),PHIPD,INDSTE1<23),PSIPD,INDSTE2<156),THTPD, 

CINDSTE3<5),TIME>DM8(287),PI77RC2),PI77R1<2),DH9<A), 

CQI77Rl2)*0I77Rl<2>#DM10m#RI77R(2),RI77Rl(2)*DMll<A8>, 

CXG77F (2)*XG77F1{12)»YG77F(2) * YG77F1 112) t 
CZG77F(2)»ZG77F1(2)* DUH13 ( 52 ) * 

CNSTRUT,MASS(5)»RX<5}>RY(5),RZt5)#THETA0<5),ERDEG,RGR> 

CNTIRES(5)»RZER0(5)»W(5),DELTAM(5)#H0MENTC5), 

CRF(5)#VZ >IFD>PZER0(5),VZER0(5)>A<5)> P20 < 5 > # V20 <5 I , 

CA2(5 )t IL>S2T(5)»ES2(5),C2L(5)*MASS2(5),MUS(5) , 
CCC(5)*CE(5)>C2C(5)»C2E(5)»NVGPT»NPP»HB(5 ) >RLT >N DELTA# 
CES{5»>SBC5)#S021(2)#S022(2),SD23(2)>SD24(2),SD25(2) 
CQMHON/DIRCOM/ 

. . CSQllX2l*SD12-(2)*SD13m*SDlA12JjSD15(2)* 
CS1(2),SS2<2),S3(2),SA(2),$5<2), 

CS2D2H2)* S2022(2)»S2D23(2)>S2D24C2)»S2D25(2)» 
CS2Dll(2)>S2D12<2>,S2D13(2)>S2Dl<t<2),S2D15<2), 
CS21(2)>S22(2)>S23(2)>S2M2),S25(2), 

CO MT 011(2)* 0MTD12 ( 2)»0MTD13(2)> QMTD14 (2)»0MTD15(2)# 

C0HT1 (2)*0MT2(2)#0HT3(2)>0NTM2)»QMT5(2)* 
CAI<5),BI(5)*DELTA1»DELTA2»DELTA3*DELTA4*DELTA5, 
CDDELT1,DDELT2,0DELT3,0DELTA,0DELT5,ISTAGE, 
CPRTMIN,IPLT*ISDF*ISTPL1#ISTPL2*ISTPL3,ISTPL«, ISTPL5* 
CDM1M22)*IB(5)*DM15(127)>INDLG>DM16(107),CASK<<»<»)*INDFLX, 
♦NH0DE,DM18U0>#SXM0D(100>#SYH0DU00),SZHQD( 100), DM19 (1686), 

* GQD2 (20)»DDM 20(20) 

♦*DDN21(20)»SLEN1(5)»SLEN2(5)»DUM15(13)>INDNWS»DDM22(10)>ETADES» 

♦ DDM23<5),AH(5),PH(5)*DDH2M30) 

C0MM0N/LG0E/LA(50),FC2(5),P2 ( 5 ) >PRES ( 5 ) , C (5 ) * IPPT, LTPT 

C 

♦CALL ACOBLK 
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DIMENSION CD3<5>, SD1<2*5) 

EQUIVALENCE(SD11<1>, $01(1*1) ), (DM5 ( 16 )* GREFF ) 

DATA STATEMENTS TO SET VALUES OF INPUT VARIABLES 

DATA AMUH/O. 00018/* BETA/14400000./ 

DATA BLMU*BUMU/10*0.15/ 

DATA AREA1* AREA2* AREA3/5*0.21139*5*0.32167,5*0.00698/ 

DATA AREM0*ARE03*APINT/5*0. 0066*5*0. 19635, 5*0.0/ 

DATA CDM0C*CDM0E*CD3/5*0. 9*5*0. 14197,5*0. 6/* CFF0R/5*50.0/ 

DATA CDSV,DELT,DI0TA/5*0. 62*0. 0001*0.0/ 

DATA EPSIL0*EPSSLP,EPSR0L*ETASV/5*200. 0*0. 0,5*2 000. 0*0. 436/ 

OATA GAMAN,GAMAH»GNR/1. 06,5*52. 36*0.0/ 

DATA IC0SV*IFST0P/10*0/ v 

DATA IDEACT*II,KAPT*0MRUN*PERCNT/7*0*-0. 07575* 5*1. 66115/ 

DATA P ATM* PGAHAC* PGALAC/2116. 8* 5*432000.0, 5*0.0/ 

DATA PGA1I,PGA2I*PGA3I/ 15*40320.0/ 

DATA TAUF, TCI * TC2* TC3* TC4/0. 1*0. 281* 0.141* 0.001* 0.0001/ 

DATA VOL) I *VCL2I*V0L3 1/5*0. 36379* 5*0. 47164* 5*0.0/ 

DATA RHOH*WLFOR*WLFORR/ 1.626*5*500. 0*0.0/ 

DATA DSV*RCLSV*WSV1*WSV3/5*1. 1875* 5*0. 0000475*2*3. 480/ 

DATA WC*WC1*WSV*XKSV*XSTHR/1263. 0*251. 3* 655. 5, 5*0. 00250* 0.020833/ 
OATA XKA*XKF*XLPSVl*XLPSV3/5*0. 04* 5*60.0* 5*0.0* 5*0.0/ 

C TA XBIAS*XSC0M*XSVDMN*XSVDMX/5*-0. 00014, 5*1. 206* 5*-30. 1,5*30.1/ 
DATA XDDMAX* XDDMIN/5*1 • 0E20* 5*-l .0E20/ 

DATA XS VMAX* XSVMIN* ZETAC1* ZETAC2/5*0 . 100* 5*-0. 100*5. 1*0.1/ 

DATA V0LACI,V0LANI*QPUMPS/5*1. 33333*5*0. 26667*5*0. 02005/ 

! C*********************************************************************** 
IF (TIME .GT. DELT) RETURN 
: C 

I - AC0N»1./(HSV*HSV*WC) 
i BC0N«1./(WSV*WSV)+2*ETASV/(WSV*WC> 

! CC0N*2.*ETASV/WSV+1./WC 

i DCON-1. 

XMU-AMUH/. 0000209 
QTOLER*. 0001 
SBFOT-O.O 
VELDEC-O. 

0MRUN»0MRUN*0. 01745329 
! II • 0 

c 

\ DO 100 I«1*NSTRUT 

REDSLP(I) • 100000.0 
; ISTROKt I)*0 

NAC ( I ) "0 

VOLANT ( I ) ■ VOLANI(I) 

VOL IT ( I ) ■ V0L1I ( I ) 

I V0L2T(I)-V0L2I(I) 

V0L3T(I)-V0L3I(I) 

QSVCU(I)»0.0 

DFCD-O. 
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DELTX ( I )*0. 

OELTXK I)-0ELTX( I)*XKF(I) 

DLTX1DI I)«0. 

XHAII )• CDF < I > ♦DELTX HI) >»XKA<I ) 

XHA5 ( I ) *XHA ( I ) 

XHA8( I )»XHA5 < I ) 

XMA11(I)»XMA8(I) 

XHAl(I)-0. 

XNA2 ( I ) *0. 

XMA3 (I )*0. 

XHAMIJ-O. 

XMA6(I)«0. 

XMA7<I>»0. 

XHA9(I)«0. 

XMA10 ( I )*0. 

XSVDD(I)«0. 

XSVODD( I)«0. 

xsvm»xKSvm*xMAiim+xBiAsti> 

XSVDOT ( I )*0.0 
OPICII-O. 

C0EF3CI>«CD3<I)*SQRT(2.*GREFF/GAMAH<I)> 

NOTE: SUBROUTINE »PHL0Z2« COMPUTES INITIAL PRESSURES AND FLOWS IN 
UNITS OF INCHES. 

C0EF*CDSV(I)*SQRT(2.*GREFF/GAMAH(I))*14A. 

CSV1(I)»C0EF*WSV1 
CSV3(I )«C0EP*WSV3 
PS(I)»PGAHACm/14A. 

PR(I)*PGALAC(I)/14A. 

. _ QC<1)»Q-.--- — - - ---- - — -j . 

CALL PHL0Z2(PS<I)tPRCI)#XSVm#QC(I) # XLPS Vl (I) # XLPSV3 (I), RCLSV*QS V 
& ,CSVim>CSV3<I),XMU>QT0LER*NITER,Pim»QSl(I)#QS3m > 
PGA1I(I)«P1<I )*144. 

PGA2I C I >- PGA1I ( I ) 

PGA3I(I)*PGA2I(I) 

QSV1(I)«QS1(I)/1728. 

QSV3(I)*QS3(I)/1728. 

PGA1T(I)*PGA1I(I) 

PGA2T(II«PGA2I(I) 

PGA3T(I)-PGA3I(I) 

Q0( I ) *0 • 

QSV ( I )*QSV1 ( I J-QSV3C I ) 

VCUM(I )-0. 

AP2T0(I)*PGA2I(I)+PATH 

FFORT(I) « 0.0 

FORSST ( I )»0.0 

WFORT ( I )*0.0 

FONHST ( I ) «0.0 

FORCHT ( I ) »0. 0 

XVALVEt I)»XSV(I> 

100 CONTINUE 
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C 

CALL SETUP 

RETURN 

END 

♦IDENT ALGEAR 
♦INSERT ACTJNIT.14* 

♦DECK ALGEAR 

SUBROUTINE ALGEAP1 
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♦+♦**♦♦*♦♦**♦*♦♦*♦♦♦*♦ FATOLA VAPIAELES *♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
C0NM0N/DIPC0M/DM1U15)#ALPHD#DN1A(20)#AMASS#DM2(147)#DCL1*DCM1* 
CDCN1#DCL2#DCM2#DCN2»DCL3#DCN3#DCN3#DH3(99)#FXB7P* 
CDUM4(3)#FYB7P(4) # F7B7P#0H5<17)#GXB7F#DM6(8)*GZB7F# 

CDM7(218)> INDSTF(48)#PHIPD#INDSTE1(23)#PSIPD#INDSTE2(156)#THTPD> 
CINDSTE3(5)#TIME# DM8 (2 87) # PI77R < 2 > # PI77P1 (2 > # DM9(4)* 

C0I77R <2)»OI77Rl (2>*DK10(4)#RI77R(2)#RI77R1(2)#DM11 (48)# 

CXG77F (2)#XG77F1(12)»YG77F(2)*YG77F1(12)# 

C ZG77F (2) s ZG77F1(2)»DUM13(52)» 

CNSTRUT#NASS(5)»PX(5)#RY(5)#RZ(5)#THETAD(5)#ERDEG#RGR# 

CNTIRES ( l )#P7EPO(5)# V ( 5 )# DELTAM ( 5 )t MOMENT (5 )t 

CRF ( 5) # VZ t IFD#PZEPP(5)#VZERO(5)#A { 5 ) # P20 < 5 ) # V20 ( 5 ) # 

CA2(5)#IL*S2T(5)#ES2{5)#C2L(5)#KASS2(5)#MUS(5)# 

CCC<5)#CE(5),C2CC5),C2E<5)*NVGPT#NPP,MB<5),RLT,NDELTA, 

C«=S(5)#SB(5)#SD21 (2 ) > SD22 (2 )t SD23 (2 ) t SD24 (2 ), SD25 (2 ) 

:OMMON/DTPCOM/ 

CSDll(2)*SD12(2)tSD13(2)#SD14(2)»SD15(2) » 
f CS1(2)#SS2(2)#S3(2)#S4(2)»S5(2)# 

/ CS2D21 (2)#S2D22(2)#S2D23(2)#S2D24(2)#S2D25(2)# 
CS2D11(2)#S2D12(2)#S2D13(2)#S2D14(2)#S2D15(2)# 
CS21(2)»S22(2)#S23(2)#S24(2)#S25(2)> 
C0MTD11<2)#0MTD12(2)#0MTD13<2)#0MTD14(2)#0MTD15{2)> 
CPMT1(2)#OMT2(2)#0MT3<2)#OMT4(2)#OMT5<2)> 
CAI(5)#BI(5)#DELTA1#0ELTA2#DELTA3#DELTA4*DELTA5* 
CDDELT1,DDELT2#DDELT3»DDELT4#DDELT5#ISTAGE# 

CPRTMIN#IPLT#ISDF,ISTPL1# ISTPL2# ISTPL3# ISTPL4# ISTPL5# 
C0M14(22)#IB(5)#DM15(127)#INDLG#DM16(107) »C ASK ( 44 ) # INDFL X# 
♦NMnDE#DNie(40)#SXN0D(lC0)#SYMDD(100)#SZM0D(100)#PN19(168fr)# 
♦G0D2(20)#DDM20(20) 

♦#DDN21(20)#SLENl(5)#SLFN2(5)*rUH15{13)#INDNWS»DDM22(10)#ETADES# 

♦DDM23(5)#AH(5)#PH(5)#DDM24(30) 

REAL WASS#NOMENT# MASS?#MUS*NTIR ES#MB 
DIMENSION DLGAL'T(14),DLGDE(47)#DLG(7)#DLGE(299) 

COMMON /LGAUTS /ARG11#ARG13#ARG31#ARG33#AMA(5)#VAXLE(5) 
C0MMQN/LGDE7LA(50)#FC2(5)#P2(5)#PRES(5)#C(5)#IPPT#LTPT 
C0MM0N/LG/FXM#FYM,PZM#LM,MM,NM,FPSL02 
CONMON/LGE/AH(5)#A13(5)#A31(5)#A33(5)#RRCGX(5)# 
CRL(3#3)#RI(3#3*5)#PAX(5)#PAY<5)#RAZ(5>#TNP<3)»ZZEPO(5)# 
CXP(5)#YR(5)#EPSLON(5)#PA(5)#FDELTA(5)# 

CFTPZ( 5 )#PDX (5’) »PDY( 5)# PDZ (5 )# RDVC C 5 )#RDYG( 5 )#PD7G (5 )# 
CVTX(5)#VTY(5)»VT7(5)#G7(5)# VGPT ( 5 ) # FTR X ( 5 ) » FTRY( 5 ) » 

CDX(5)#DY(5)#DZ(5)#FT(5)#FDX(5),FDY{5)#FF(5),AA(5),C2(5), 

CSR (5)#SF(5)#PSKD(?>#KUVP(5)#NTRX(5 )#MTRY(5), 


f 
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CMTRZ(5),MA(5),RG11,RG13,RG31,RG33,IPRT, 

CMTX,MTY,MTZ,SFTRX,SFTRY,SFTRZ,FTRA, 

CFTRB,FTRC,SHTRX, SMTRY, SMTRZ 

COMMON/ FLXOP /GF0RC2 ( 100 ), GF0RC3 (1 00 )>GF0RC4( 100 ),BH1( 308) 
EQUIVALENCE (DLGAUT (1),ARG11),(DLGDE(1),LA(1) ), 

♦ C DLG ( 1 ) , FXN) , ( DLGE ( 1 ) , All ( 1 ) ) 

C0MM0N/TABSRC/DUMM1 (103), LOC (7 ) 

COMMON/ HTCOM/HT »HT1»HT2 

c 

♦CALL ACOBLK 
C 

REAL MUVP,MTRX» MTRY, MTRZ, MA, 

CMTX,MTY,MTZ,LM,MM,NM 
DIMENSION DELTA(5),DDELTA(5),P(5), 

C SD2(2,5),SD1(2,5),S(2,5),S2D2(2,5),S2D1(2,5),S2(2,5), 

C0METD1(2,5),0MET(2,5) 

EQUIVALENCE ( P ( 1 ) , PRES ( 1 ) ) 

EQUIVALENCE ( DELTA ( 1 >, DELTA1 ), (DDELTA(l) , DDELT1 ) 

EQUIVALENCE 

C(SD21(1),SD2(1,1)),(SD11(1),SD1(1,1)),(S1(1),S(1,1)), 

CCS 2021(1), S 2D 2(1, 1)),(S 2D 11(1), S2D 1(1,1) ),(S21(1),S2(1,1) ) , 
C ( 0MTD11 (1 ), 0METD1 ( 1,1) ),(0MT1(1),0MET(1, 1)) 

C . ... . 

C ************** ACTIVE CUDf************************************** 
EQUIVALENCE (DH5(16>, GREFF) 

DATA IFRI/5*0/,FSTGPK/0.0/,FST0P/5*0.0/,DST0P /O. 004/ 

DATA SA,RESA,HMM,IXSVL, IXSVH, IIXSVL,IIXSVH,IPASS 
1 /15*0.,25*0/ 

DATA ENUP/5+0.0/ 

DATA ISET, I0PC0,QSVN/10n, 5*0.0/ 

Q1(T1,T2)-SIGN(1., (T1-T2) )*SQRT(ABS(T1-T2)) 

C **************************************************** ************ 
C 

DATA RADDEG, DEGRAD/ 57. 2957795,. 01745329/ 

MAIN COMPUTATIONAL AREA 
RL MATRIX ELEMENTS 
RL(1,1)«DCL1*RG11+DCL3*RG13 
RL (1,2 ) a DCL2 

RL(1,3)»DCL1*RG31+DCL3*RG33 
RL(2,1)*DCM1*RG11+DCM3*RG13 
RL (2, 2 ) »DC M2 

RL ( 2, 3 ) *DCM1*RG31+DCH3*RG33 
RL(3,1)«DCN1+RG11+DCN3^RG13 
RL (3,2 )«DCN2 

RL(3,3)*DCN1*RG31+DCN3*RG33 
CALL LGEA3C 
C 

C ******************* ACTIVE cooe ♦♦*♦♦♦**♦♦♦♦♦♦♦*♦♦♦♦♦♦♦********* 
C START ACTIVE GEAR CALCULATIONS 

COPA • COS( (THTPD+DIOT A) ♦DEGRAD) 

SIPA - SIN( (THTPD+DIOTA)*DEGRAD) 

IF (TIME .GT. DELT )G0 TO 18 
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15 WRITE (6*1013) 

1013 FORMAT (1H020H ACTIVE CONTROL GEAR) ORIGINAL PASS Es 

18 IF ( IDEACT • EO .1 ) GO TO 56 OF POOR QUALITY 

19 IF(IDFACT.E0.2) GO TO 80 

IF(HMMd) .EO. 0.) GO TO 90 

IF (OMRUN .GT. 0.0)G0 TO 25 

IF (ZG77F1 (1 ) .GF. VEL DEC ) GO TO 90 
- GO TO AO 

25 IF( ZG77F1 (1 ) .GE. VELDEC+XG77F1 ( 1 ) *TAN( OMPUN) ) GO TO 90 
AO WRITE (6#101A)TIMF 

101 A FORMAT (1H036H REDUCF CONTROL LIMIT FORCE AT TIME»,E16.8) 

IOEACT-1 

56 WLFOR (I)«WLFOR(I)-PEDSLPd)*DELT 
EPSILO(I)"EPSILO(I)+FPSSLP*DELT 
IF(WLFOP(I) .GT. WLFORR ) GO TO 90 
60 WRITE (6#1015)TIME 

1015 FORMAT (1H027H CONTROL AT WLFORR AT TIME-,E16.8> 

IDEAC T«2 

» 80 Wl. FOR jf I L- WLFORR 

i FPSILOd'-FPSROLd) 

1 90 CONTINUE 

£**:M** ******************************************* *********** ************ 
i - DO 65 I"l# N STRUT 

WFOPT ( I ) ■ (S0PT(FXB7P*FXB7P+FYB7P*FYB7P+F7B7P*FZB7P) )/(NSTPUT-l> 

£ +(FORSST(I)*COPA) 

£*'*****¥****************** ACTIVE CODE ******************************** 
IF(KAPT(I).NE.O)GO TO 210 
APINT(IJ«0.0 
210 CONTINUE 

IF(PGAlTd) .LE. -1600.0) PGAIT(I) ■ -1600. 0 

VOLlTd)-VOLlI(I)-(APEAl(I)-APINT{I))*S(l>I) 

V0L3T(I)-V0L3I(I)+APEA3(I)*S(1#I) 

V0L2T(I)«V0L2I(I)-(APEA2(I)-AREA1( I)+APINT(I ) ) *$ (1 d >+ (V0L3T ( I ) 

| X -VOL 31 (I))-VCUM(I) 

PGA2T(I)«AP2T0(I)*( (V0L2I (D/V0L2T (I) )**GAMAN)-PATM 
IF (SOI ( 1# I ) .EO. 0.0) GO TO 10A 

PGA3T(I)-( (C0EF3(I)*ARE03(I) ) **2*PGA2T( I )-SDl (Id >/ABS (SD1 (Id ) ) 

X *(S01(ld)*ARFA3(I) )**2 ) 

£/( (C0EF3d)*ARF03(I) )**2> 

C-0 TO 105 

10A PGA3T(I)-PGA2T(I) 

105 IF ( PGA1T ( I ) .GF. PGA2T(I))G0 TO 106 
GO TO 107 

106 GAMAH(I)»RH0H*GREFF*(1.0*(PGA1T(I ) *3 .0AE-08 )— 

* (PGA1T(I)T*2*2.72 E— 15 ) ) 

GO TO 108 

107 GAMAH(I)»RH0H*GPEFF*(1.0+(PGA2T(I)*3.0AE-08)- 

. * (PGA2T(I) **2*2. 72F-1 5 ) ) 

i 108 IF(PGA1T(I) .GF • PGA2T ( I ) ) COEFO( I ) - 

* CDMOC(I)*$0RT(ARS(?.*GPEFF/GAMAH(I>>) 

IF (PGA2T ( I ) .GT. PGA1T ( I ) ) COEFO ( I ) ■ 

* CDM0E(I)*S0RT(A8S(2.*GPEFF/GAMAM(I) ) ) 
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IF(SD1(1,I).LE.0.0) GO TO 109 

00(I)»C0EFO(I)*(AREM0(I)-APINT(I)>*Ol(PGAlT(n,PGA2T(I) ) 

109 IF (PGA2T ( I ) .LE. -1600 .0 > PGA2T ( I) » -1 600 . 0 
IF ( PG A3T ( I ) .LE. -1600 .0 ) P GA3T ( I) --1600. 0 

100 IF (DELTA ( I ) .LE. 0.0 .AND. TIME .GT. DELTIGO TO 101 
GO TO 110 

i 101 FFORT ( I ) »0.0 
i GO TO 140 

110 CONTINUE 

C COMPUTE STRUT AXIAL BINDING FRICTION FORCE 

BLF0RT(I)-F0NHST(I>*((SLEN2(I)-$(l#I>)/<SLENl(I)+S(l,I>)Ui0) 
BUF0RT(I)-F0NHST(I)*(SLEN2(I)-S(1,I)>/(SLEN1(I)+S(1,I) ) 

FFORT ( I)«BUMU(I)*ABS(BUFORT(I))+BLMU(I)*ABS(BLFORT(I) ) 

140 CONTINUE 

:C COMPUTE SHOCK STRUT CHARGING FORCE 

I IF (S ( 1,.I.) ..GT,. 0.01 GO TO 142 _ . . .... .. 

! 141 FOPCHT(I) « PG AIT (I)* APEAK I) +PGA2T (I) ♦( APEA2 (I)-APE A1 ( I ) )-PG A3T ( I ) 

l X ♦APEA3(I)+FF0PT(I)+CFF0P(I) 

I C COMPUTE NORMAL ANO AXIAL HUB TO SHOCK STRUT FORCES AT HUP 
' 142 FONHS T ( I ) »SQPT ( FDX ( I ) **2 + FDY( I ) **2 >— MASS ( I ) *GP EFF*S IPA+SBFOT 

j IF ( ABS (FT ( I ) ) .LF. FOPCHT(I) .AND. S(1,I> .EO. O.OJGO TO 150 

I GO TO 801 

150 CONTINUE 

FORSST ( I ) "FT ( I ) 

SD1 (1 » I ) »0. 0 
IF(I.EO.l) GO TO 450 
! ISTROK ( I ) *1 

C****## 289 CHANGED TO 295 FOR DEBUGGING PUPPOSESi 
GO TO 295 

C COMPRESSION VELOCITY OF SHOCK STRUT IS POSITIVE 

801 IF (SOI ( 1, I ) .LE. 0.8 .AND. IFRI(I) .EO. 0)G0 TO 2 

GO TO 3 

j 2 DMTANHd )*1 .0 
GO TO 284 

3 DMTANH(I)»ABS(TANH(2.0*SD1(1#I)) ) 

IFRI( I)-l 

284 IF(S(1»I) .LE. DSTOP .AND. SD1(1,I) .LT. 0.0)G0 TO 900 

GO TO 902 

900 IF(S(lfI) .LE. 0.0001 ) GO TO 903 
GO TO 904 
903 $D2(l,Il-0.0 

SD1 (1* I ) *0. 0 
S(1*I )-0.0 
DPKD-0.0 
FFORT (I 1*0,0 
VCUM { I ) *0 • 0 
00(I)-0.0 
i II-O 

C CALL VIPK4 ( 1 1, N, NT, C I, SP EC, CIM AX, I ERR, VAR,CUVAP,DER, EL El, EL E2, 

C 1 ELT,EPRVAL,DER SUB, CHSUP, I TEXT) 

GO TO 902 
' 904 CONTINUE 
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IF ( I e STOP ( I ) • NE • 0 ) GO TO 906 

905 0ST0P«S(1,I> 

FST0PK-2.0*MASS(I)*SD1(1»I)**2/DST0P**2 

906 IF<S<1,I) .LE. P$T0P/2.O)GO TO 908 

907 FSTOP(I) — FST0PK*(0ST0P-S(1,I)) 

GO TO 909 

* 908 FSTOP (I)— FST0PK*S(1,I) 

: 909 IFSTOP ( I ) *1 
IFRKD-0 
GO TO 901 

‘ 902 FSTOP ( I ) »0 .0 

901 IF { A8S ( FT ( I ) ) .LE. FORCHTCI) .AND. S ( 1> I > .EO. 0.0)G0 TO 500 
‘ IF ( SD 1 Ilf 1.1 • L.T .. .0.0) GO TO 470 ... „ 

GO TO 471 

470 FFORT(I)— FFORT(I) 

CFFORCD— CFFOP(I) 

471 FORSST(I)»— ( (PGA1T(I)-PGA2T(I) >* ( AREA1 ( I )-APINT<I ) ) 
t +PGA2TCI )*AREA2(I) 

X -PGA3T(I)+A9EA3{I)+(FF0PT{I) 

1 +CFF0P(I> >*DMTANH(I)+FSTOPCI> ) 

500 IF (INDFLX.GE. 1 ) GO TO 295 
IF(I.EO.l) GO TO 450 
ISTROK (I)-l 

C***** ****** BRANCH FOP DEBUGGING PURPOSES* 

GO TO 295 

289 IFCSf 1# I) .LE. 0.0)290*295 

290 IF(IOPCO(I) .EO. 1 ) GO TO 295 

IF ( (PGA1I ( I ) -1000 .0 ) .LT.PGA1TID.AND. 

6 PGA IT (I ).LT. (PGA lit I ) + 1000.0) >299,298 
299 IF ( XVALVE ( I > .NE. 0.0)G0 TO 311 
IFCIPASSII) .EO. 1 ) GO TO 296 
XVALVE <I)»XKSV( I )*XNA11 (I)+XBIAS(I ) 

IPASS ( I )"1 
GO TO 294 

298 IF(ICOSVtl) .EO. 1)G0 TO 291 
I0PC0m-0 

IF(XSV(I) .LT. 0.002 .AND. XSV(T) .GT. -0.002)291,295 

291 IF(SD2(1,I) .LE. 0.0 .AND. ICOSV(I) .EO. 1 )G0 TO 311 
IF ( IOPCO ( I ) .EO. 1 ) GO TO 295 

IF (PGA1T ( I ) .GT. PGA1I(I))292,293 

292 IF ( IXSVL ( I ) .EO. 1 ) GO TP 294 
XVALVE(I)-XVALVE{I)+XSVO^N(I)*DFLT*PFRCNT(I) 

IF (XVALVE ( I ) .LE. -0.1)300,294 

.300 XVALVE ( I ) *-0.1 
IXSVL (I)-l 
GO TO 294 

293 IF ( IXSVH( I ) .EO. l)Gr TO 294 
XVALVF(I)-XVALVE(I)+XSVDNX(I)*DFLT*PFRCNT(I) 

IF<XVALVE(I) .GE. 0.1)302,294 

302 XVALVE ( I ) »0. 1 
IXSVH(I)-1 

294 CONTINUE 



38 


ORIGINAL PASS S3 

OF POOR QUALITY 


II-O 

C CALL VIRK4(II*N*NT*CI*SPFC*CIMAX*IERR*VAR*CUVAR»DFR*EIE1*ELE2* 

c i ELT,ERPVAL*DERSL'8,CHSUB,ITEXT) 

DLTX1 0 ( I ) *0* 0 

icnsvd)-i 

296 IF(VFORTd) .GT. 0.0 .AND. S(1*I) .LE. 0.0)G0 TO 410 
311 IF (NAC ( I ) .EO. 1)G0 TO 307 

IF (II XSVH ( I ) .EO. 1 )G0 TO 305 

XVALVE(I)"XVALVE(I)+XSVDNN(I)*DELT*PERCNT(I) 

IF(XVALVEd) .LE. 0.0)305*400 
305 XVALVE(I)-0.0 
IIXSVH(I)-1 
60 TO 400 

307 IF ( II XSVL (I ) .EO, 1)60 TO 308 

XV ALVE(I)-XVALVEd)+XSVDNX(I)*DELT*PERCNT(I) 

IF (XVALVE (I ) .GE. 0.0)306*400 

308 XVALVE ( I ) "0,0 
IIXSVL (I ) *1 

400 II-O 

C CALL VIRK4(II*N*NT,CI* SP EC* C IHAX* I ERR* VAR* CUVAR* DER* EL El *FL F 2* 

C 1 ELT#FRRVAL*DERSUB*CHSUP*ITEXT) 

410 IF ( XVALVE (I ) .NE. 0.0)GO TO 295 

icosvm-o 

DELTXld)-DELTX(I)*XKF(I) 

XNA(I)-{DF(I)+PELTX1(I))*XKA(I) 

XMA11 (I)-XMA(I) 

XSV(I )»XKSVf I)*XHA11(I)4XBIAS(I) 

CALL LIPITS(XSVd)*XSVDOT(I),XSVNAXd)*XSVMINd) ) 

ipass m-o 

IXSVL ( I )-0 
IXSVH ( I ) -0 
IIXSVL (I ) -0 
IIXSVHd ) -0 
IOPCOd)-l 

CALL PHLCZ2(PSd)*PP(I)*XSV(I)*OC(I)*XLPSVl(I)*XlPSV3d)*RCLSV( I)* 
e OSV(I)*CSVl(I)#CSV3d)*XHU*OTOLER*NITFR»Pld)*OSld)»QS3d) ) 

C 

295 IF(ISTROK(I) .FQ. 1 .AND. S C 1* I ) .GT. 0.0)10 PC 0(1 )-0 
C 

ENUP(I)-.5*AMASS*7G77F1(1)**2 
ENUP(I)-ENUP(I )/(NSTPUT-l) 

IF(HMM(I) .EO. 1 . 0 ) GO TO 130 
SA ( I ) -0. 

IF(VFORT(I).LT.O.) XSTOT (I ) -ENUP ( I )7 ( (-VFORT ( I ) ) *CCP A ) 

IF(WFORTd) .GE.O.) XSTOT ( I ) -1 . E20 

C 7SSC IS A PERCENTAGE OF SPII) FOP ACTIVATING CONTROL-CDMOC ( I ) IS USE 

7SSC-0.fc*CDN0C (I )*SP (I ) 

IF ( XSTOT (I ) .LE. ( 7SSC-S ( 1*1 ) ) .OR. RESA(I) .FQ. 1 . 0) SA ( I ) -1 .0 * 

PESA( I)-SA(I) 

IF(SA (I).EO.O. .OR. HPHID.EO.l.) GO TO 130 
WLFOR(I)— WFORTd) 

VELDEC-( ( VLFOR ( I ) +VL FOPR ) / 2. * ( VL FOP (I ) -WLFORR ) )/{ANASS*REDSLP( I )) 
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ORIGINAL PAGE 13 
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VRITE(6/121)TIMF/WLF0R(I)/VELDEC 

1?1 FOR PA T ( 50H ACTIVE CONTROL INITIATED. .. TIME/ VLFOP/ VELDEC » / 

1 3E13 . ?5 ) 

HMM(I )-l. 

130 IF(S(1/I) .GT. 0.0 ) ISETf I ) *0 

IF(HMM(I).EQ.O.) GO TO 451 

IF(-WFORT(I).GT.(WLFOR(I)+EPSILO(I)) ) DF < I ) ■ C WLFPP (I) + 

£ EPSILO(I) J-l-WFORT(I) ) 

IF(-WFOPT(I).LT.(VLFOR(I)“EPSILO<I))) DF < I ) - ( WL FOR (I)- 
E EPSILO(I)) — WFOP T ( I ) ) 

IF(~WFORT<I).LE.(WLFOR<I)+EPSILO{I )).AND. 

£ — WFORT (I).GE.(WLFOR(I)— FPSILO(I)) ) 

I 457/456 

457 IF (SCI# 1 1 .LE. 0 .0 ) GO TO 456 

453 IF (WFORT ( I ) .GT. 0.0 .AND. OSVCU(I) .IT. 0.0)454/455 

454 DF(I)-WLFOR(I)-(-WFOPT(I)) 

GO TO 456 

455 DF ( I ) «0.0 

456 DELTX(I)*S(1/I)-XSC0M(I) 

IF (S( 1# I ) .LE. 0.0 .AND. ISET(I) .EQ. 0)G0 TO 451 
GO TO 452 

.451 DF ( I ) *0. 

DELTX m-0. 

452 > 'A (I )-(DF(I)+DELTXl(I))*XKA(I) 

IMGNR.EO.l. .AND. XMA ( I ) . GT.O. ) XMA(I)- 
» XMA (I)*SORT< (PGAIT(I)-PGALAC(I) ) 

X /(PGAHACm-PGAlTCI))) 

NOTE* SUBROUTINE *FL0ZE2» COMPUTES THE FLOWS FROM THE PRESSURES 
IN UNITS OF INCHES. 

PlCI)-PGAlTm/144. 

C COMPUTATION OF HIGH PRESSURE ACCUMULATOR N ITROGFN VOLUME 

C AND ACCUMULATOR PRESSURE 

VOLANT(I)»VOLANT(I)+OSVN{I)*DELT-OPUMPS(I)*DFLT 

PS(I)»({(PGAHAC{I)+PATM)*(V0LANI(I)/VOLANT(I))**GAMAN)-PATM)/144.0 
IF ( PS ( I ) .GE. 3000.0)464/465 
464 PS ( I ) "3000.0 

VOLANT(I)«VOLANI(I) 

| 465 VOLAHT(I) • VOL AC I C I ) -VOL ANT Cl) 

IF (VOLAHT ( I ) .LF. 0.0)466/467 

466 WRITE(6/1050)TIME 

1050 FORMAT (1HC//45H ACCUMULATOR OIL VOLUME INSUFFICENT AT TIME-/E16.8 
1 //) 

CALL LGFAR6 
’ STOP 500 

467 CONTI NUF 

CALL FL07E2(PS(I)/PR(I)/P1(I)/XLPSV1CI)/XLPSV3(I)/RCLSVCI)/DSV( I)/ 
£ XSV(I)/0S1(I)/0S3(I)/CSV1(I)/CSV3(I)/XMU) 

0SV1(I)-QS1(I)/1728. 

OSV3(I)»OS3(I)/1728. 
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450 CONTINUE 

OSVld) - 0.0 
GSV3 d I • O.C 
OSVCI 1-0SV1CI1— 0SV3CI) 

_ IF(OSV(I)..LT. Q.OlNACdV-L 

IF ( OSV ( T ) .GT. O.OINACdI-2 
IFtNACd) .EO. 2 >461# 462 

461 OSVNUI-OSVd! 

GO TO 463 

462 0SVN{I)-0.0 

463 IF (SOI (1# I ).LT. 0.0 .ANO .PGAlTd I. LE. -160C.0 I PGA1 T (I) —1600.0 
274 CONTINUE 

11 - I+3+NSTRUT 

12 - I+4+NSTRUT 

13 - I+5+NSTRUT 

CALL INTEGCLA{Il),DPld) 1 
CALL INTEG(LAd2)»00dI) 

CALL INTEGCLA ( 13 >>OSV f I ) I 

£***********************************************************♦*******♦ 
IF ( S0K1, 1 1. EO. 0.0. AND. FT (I) .L E . AB S ( FOP SST d 1 1 1 FOPSST (I) — FT ( I ) 
A A ( I ) - (FTCII+FOPSSTdl 1 /HASSd) 

SD2 ( 1 , I ) - SRdl+AAdl-GZCII 
HT1-HT 

IF (SOI { 1, I ) 176,77,78 

76 TTIME-S(1,I)/APS(SD1(1,I)) 

79 IFfTTIME.GE.HTlGO TO 77 

HT1-TTIHE 
GO TO 77 

78 TTIME«(SBtI!-Sd»I> )/SDld,I) 

GO TO 79 

77 CONTINUE 

IF{S(l,I).GT.{-ESd)I)GO TO 50 
WRITE(6,49)I,I,Sd,I) 

49 F0RHAT(58y,4H-ES(,Il,20H) EXCEEDED IN ALGEAP/ 

C58X,2HS(,I1,4H) - E15.7) 

$d,I I— 0.5*ES(I1 
sold, II— 1.0E-10 

S02(1,II— 1.0E-10 
50 IFCSd,II.LE.E$d))GO TO 51 

IF(S(l,I).LE.fSBCI)“ESCI))IGO TO 55 
IFfSCl,!) .LE.CSPdl+FSd) ) )G0 TO 52 
WRITE (6, 53)1, I, SCI, I) 

53 F OR HA T ( 58 X , 4H FSC,I1,20H) EXCEEDED IN ALGEAP/ 

C58X,2HS(, I1,4H) • E15.7) 

S(1,I)-0.5*ES(I) 

52 IFCSDld,I).GT.0.)SDld,I)«0. 

JFC SO 2(1,11. L'T.O.IGO TO 55 
SD2 (1,11*0. 

C-0 TO 55 

51 IF(S02d,I).LT.0.)G0 TO 30 
IF (SOI II, I I.LT .0. ISDld, I 1*0. 

GO TO 55 
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30 SD2(l#I)-0. 
SD1(1* I)-0. 


OF POOR QUALITY 


55 CONTINUE 

I 2“ 2* I+NSTPUT-1 
11 * 12+1 

CALL INTEG(LA(I2),S02C1#I) ) 

CALL INTEG(LAdl)*SDld*I>) 

C PE-CHECK SHOCK STRUT FORCE FOP RE-CONDITIONED FULLY EXTENDED STATE 

IF(SOldd).EQ.O.O.AND.FTd) .LF . AB S ( FORSST d > ) )FORSST(D— FT « I ) 
TMP(1)*R7ER0(I)-DELTA(I) 

IF(CASK(I).GT.1.E-10)G0 TO 200 
IFdNDNWS.EO.l.AND.I.EO.DGO TO 301 
MA(I)"-FTPY(I)*TNP(1J*PI(2#1#I)+FTRX(I)*TNP(1) 

C*RI(2*2,I ) 

GO TO 201 

301 NAd) — FTRY(I)*TNP(1)*SIN( (PSIPO+ETADES )*DEGPAD>+ 

1 FTPX(I)*TMP<1)*C0S( (PSIPD + ETADES )*DFGR AD ) 

GO TO 201 

200 MA(I)«TMP(1)*S0RT(FTRY(I )*FTP Y< I ) + FTRX ( I )*FTP X (I ) ) 

NA(I)-SIGN(MAf I)#-VAXLE(I)-0NET(1, T) + TNP(1) ) 

201 AHA (I ) *MA ( I ) 

IFCIBCI).NE.(-l) )G0 TO 48 
0MPTD1 (1# I )*0. 

01 c Td * I ) *0 • 

GO TO 21 
48 TNP(l)-0. 

IF (OMETQd) .NE.O.)TNP(l)-OMET(l#n/ABS(ONET(l#I )) 
0NETD1C1#I)-{MA{I)-MP(I)+TNP(1))/(NTIRES(I)+NPNENTCI)) 


21 CALL INTEG(LA(I)>0MFTD1(1>I) ) 

£********************************************************************** 

* 65 CONTINUE 

C CALCULATION OF FTRA* FTRB# AND FTRC 

SFTRX-O. 

SFTRY-O. 

SFTRZ-O. 

DO 70 I»1*NSTRUT 
SFTRX-SFTRX+FTPXd ) 

SFTRY-SFTPY+FTPYd ) 

70 SFTPZ-SFTRZ + FTPZd) 

FTRA-RL(1*1)*SFTRX+RL(1#2)+SFTRY+RL(1*3)*SFTRZ 
FTPB-RL(2#1)*SFTPX + PL < 2, 2 ) *SFTRY+P L ( 2# 3 ) *SFTPZ 
FTRC-RL(3»1)*SFTRX+PL(3*2)*SFTRY+PL(3,3)*SFTP7 
C CALCULATION OF NTX# NTY# AND NT? 

SMTRX-O. 

SNTPY-O. 

SNTPZ-O. 

DO 75 I"l* NSTRUT 
SMTPX-SMTRX + MTPXd) 

SNTRY-SNTRY+NTPYd) 

75 SMTRZ-SNTRZ + NTPZd) 

MTX-RLd>l)*SMTPX + RLd#2)*$HTPY + RLd>3)*SNTR7 
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MTY*RL(2>l)*SMTRX+RL(2j2)*SMTRY+PL(2>3)*SMTR7 
MT7-RL(3» 1 )*SMTPX+PL(3>2)*SMTPY4RL (3>3)*SMTP7 
CALCULATION OF FXM# FYM# F7M, LM, MM # AND NM 
FYM-O. 

FZM-O. 

FXM-O. 

LM-O. 

MM-O. 

NM-O. 

BFX-O. 

BFY-O. 

BF7-0. 

BLM-O. 

BMM-O. 

PNM-O. 

DO 82 I ■! » NSTRUT 
DFXM-O. 

DFYM-O. 

DFZM-O. 

DLM-O. 

DMM-O. 

DNM-O. 

00 1A ILA-l>NMODE 
NBB»(ILA-1)*NSTRUT+I 

DFXM«DFXM-MASS(I)*SXM0D(NBB>*GQD2< ILA) 
DFYM«DFYM-MASSCn+SYM0D(NBB)*GCD2( ILA) 
DFZM-DF7M-MASS<I )*SZMODt N8B)*GQD2 ( ILA) 
NBH-(I-1)*NM0DF+ILA 

DLM-DLM-MASS(I)*GFORC2<NBH)*GOD2{ILA) 

DMM-0MM-MASSII)*GF0RC3(NBH)*GQD2(ILA) 

DNM-ONM-MASS{I)*GFOPCA<NBH)*GOD2{ILA) 

8FX-8FX+DFXM 

BFY»«FY+DFYM 

BF7-BF7+DFZM 

BLM-BLM+DLM 

pMM-BMM+DM* 

bn*«bnm+dnm 

TMP(l)-MASSm*SD2(l>I) 

FXM-FXM+TMP(1)*A31(U 
F YM«F YM 

F7M*»F7M+TMP(1)*A33(I) 

LM»LM+TMP (I)*A11( I)*PY (I ) 
MM«MM-TMP(1)*RPCGX(I) 

NM-NM + TMP<l)*A13m*RY(I) 

fxm-fxm+bfx+ftpa 

FYM-FYM+BFY+FTPB 

FZM-FZM+BFZ+FTPC 

i m»lm+rlm+mtx 
mk«MM+BM»+MTY 
NM-NM+BNM+MT7 


ENTRY SFTUP 
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DO 28 1“ 1 , NS TRUT 

IF C SOI (1# 1 5 .LE. 0.0) CO TO 2C 

DPI (I )■ (-00 ( I )40SV1< I )-0SV3( I ) + (APEAK I ) -A PI NT (I ) )*$D1 (1,1 ) ) 

I *B ETA/V0L1T ( I ) 

IF (PGA1T ( I ) .LF. -1600.0) 10,20 
10 PGAIT(I) - -1600.0 

IF (DPl(I) .LT. 0.0) DPKD-0.0 
20 CONTINUE 
II-O 

CALL V IRKA ( 1 1 » N, NT,CI, SPEC* C I PAX* I ERR# VAR* CUVAR, DER, EL El >ELE2, 
1 ELT,ERRVAL, DEPSUB, CHSUB, ITEXT) 

IF(ICOSV(I) .EO. 1 ) GO TO 26 

XMA5(I)-XMA(I)+(2.*ZETAC2*VC1)*XMA1{I)+(WC1**2)*XMA2(I) 
f, - ( 2. *ZETAC1*WC1 ) *XMA3 ( I )-( WC1**2 )*XMAf ( I ) 


26 


XMA8(I)«(TC1/TC2)*XMA5(I)+(1./TC2)*XMA6(I>— (l./TC2)*XMA7(I) 
XMA11 (I)»(TC3/TC4)*XMA8(I )♦( 1./TC4 )*XMA 9 ( I )-( 1 . /TC4 ) +XMA10 ( I ) 
IF(S(1,I)«LE.XSTHR) XMA11CD-0. 

XSVD0D(I)-(XKSV(I)*XMA11(I)-BC0N*XSVDD(I)-CCPN*XSV00T(I)- 
l DCON+iXSV(I)— XBIAS(I) ))/ACON 

PLTXlDd)«(XKF(I)*PELTX(I)-DELTXl( I) J/TAUF 
CONTINUE 

CALL LIMITS (XSV< I ), XSVDOTd ) ,XSVMAX(I ), XSVMIN ( I > ) 

LIMITS(XSVDOT(I),XSVDOd),XSVDMX(I),XSVDMN(I)) 

LIMITS (XSVDD(I),XSVPDD( I ),XDDMAX(I ), XDDMINd) ) 
3*I+fc*NSTPUT-2 


fML 

CALL 

11 « 

12 » 
13 ■ 
CALL 
CALL 
CALL 
II ■ 


1 1+1 
11 + 2 

INTEG(LA(I1)#XSVDDD{I) ) 
INTEG(LA(I2),XSVDD(I) ) 
INTEG(LA(I3),XSVD0T(I)) 
I+9*NSTRUT 


CALL INTEGCLA(I1),0LTX10(I) ) 
28 CONTI NUF 
RETURN 
END 


SUBROUTINE PHL0Z2 ( PS, PR# X, OC, L API, LAP3, PCL , D, COE FI# C0EF3,MU, OTOLER 
S, NITER, PI, Ql, 03) 

* PHL0Z2 ' R. D. FDSON 

THIS SUBROUTINE CALCULATES THE STEADY-STATE CHAMBER PRESSURE CPI) 
AND FLOW RATES (01 f. 03) FOR A TWO-WAY NON SYMMETRICAL SPOOL VALVE 
WITH RECTANGULAR WINDOW SLOTS, GIVEN THE STROKE CX) AND THE LOAD 
FLOW (DC). THE PARAMETERS REOUIRED IN THE »CALL» STATEMENT APE 
THF SAME AS DESCRIBED IN SUBROUTINE 'FL07E2*, WITH THE FOLLOWING 
ADDITIONAL PARAMETERS* 

QC • THE FLOW RATE TO THE LOAD 

OTOLER ■ THE TOLERANCE ALLOWED IN CALCULATING FLOW RATES, FOP 
DETERMINING WHETHER OR NOT THE SOLUTION HAS CONVERGED 
(.0001 IS TYPICAL) 

NITER ■ THE NUMBER OF ITERATIONS REQUIRED TO CONVERGE TO A 
SOLUTION (INTEGER) 
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C 

C 

IMPLICIT RFAL(UM) 

PFN<yi#X2#Yl,Y2#Y3*Y4)-Xl+(X2-Xl)* (Y2-Y1 ) / (-Y1 +Y2-Y3+Y4 ) 
NITER-0. 

FLAG--1. 

P1FLAG— 1. 

C 

P1A-PR 

P1R-PS 

CALL FLOZF2(PS>PR>PlA,LAPl,LAP3>PCL,D,X#QlAf 03A,C0EF1»C0EF3>NU) 

CALL FL07E2(PS>PR#PlB,LAPl,LAP3#RCL,D,X,01B,03B#C0FFl,C0FF3,mJ) 

IF(QlA.EQ.O. .AND. 03B.EQ.0.) GO TO 51 

03 A-Q3A+OC 

03B-03B+0C 

GO TO 50 

51 PI- (PS+PR ) /2. 

01 - 0 . 

03-0. 

GO TO 400 
C 

50 P1-PFN(P1A,P1B»03A,Q1A>01B»Q3B) 

CALL FL0ZE2(PS#PRf Pl»LAPl#LAP3#RCL*D#X,01,03»C0EFlfC0EF3#MU) 
03-Q3+0C 

IF ( FL AG.LT.O. ) GO TO 55 
IF(PI.EO.PII) GO TO 100 
55 P1I-P1 

IF (01 .EO.O. .AND. 03.E0.0.) GO TO 100 
IFCABS(Ol) .GE. ABS ( 03 ) ) 0DFN-Q1 
I F ( AR S ( 03 ) .GT. ARS(Ol)) ODEN-03 
IF ( AB S ( ( 01—03 ) /ODEN ) .LT. OTOLFR) GO TO 100 
IF ( Q1 . LT • 03 ) GO TO 90 
P1A-P1 
01A-01 
03A-Q3 
GO TO 150 
90 P1B-P1 
01B-Q1 
03B-Q3 
GO TO 150 
l 100 P1FLAG-1. 

150 FLAG-1. 

NITER-NITFR+1 

IF (P1FLAG.GT.0. J GO TO 300 
GO TO 50 
300 CONTI NUF 
Q3-03-0C 
400 RETURN 
FND 
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SUBROUTINE FL 07E2 ( PS# PR# PI# L AP 1# L A P3# RCL #C#X# 01, 03#C0EF1 #C0EF3# MU ) 
•FL0ZE2* R. D. EPSON 

THIS SUBROUTINE CALCULATES THE STEADY-STATE FLOW PATES (01 AND 
03) FOR A TWO-WAY NONS YMMETR ICAL SPOOL VALVE WITH RFCTANGUL AR 
WINDOW SLOTS# GIVEN THE LOAD CHAMBER PRESSURE (PI) AND STROKE 
(X). THE PARAMETERS PEOUIREO IN THE 'CALL* STATEMENT ARE AS 
FOLLOWS* 

X - VALVE STROKE 

PI - PRESSURE IN CHAMBER 1 (TO LOAD) 

01 ■ FLOW RATE FROM SUPPLY LINE TO CHAMBER 1 

03 • FLOW PATE FROM CHAMBER 1 TO RETURN LINE 

PS • SUPPLY PRESSURE 

PR ■ RETURN PRESSURE 

LA PI ■ OVERLAPPED OR UNDEPLAPPED LENGTH BETWEEN THE SPOOL 

AND SLEEVE AT NULL# FOP FLOW 01. A POSITIVE NUMBER 

IS USED FOP OVERLAP# A NEGATIVE NUMBER FOR UNDEPLAP. 
LAP3 - OVERLAPPED OR UNDEPLAPPED LENGTH BETWEEN THE SPODL 

AND SLEEVE AT NULL# FOR FLOW 03. A POSITIVE NUMBER 

IS USED FOR OVERLAP# A NEGATIVE NUMBER FOR UNDERLAP. 

RCL ■ RADIAL CLEARANCE BETWEEN THE SPOOL AND SLEEVE 
D - DIAMETER OF SPOOL 

C0EF1 ■ FLOW COEFFICIENT OF ORIFICE 1 (SUPPLY TO CHAMBER 1) 

■ CD*W1*S0RT(2.*GC/RH0) 

C0EF3 - FLOW COEFFICIENT OF ORIFICE 3 (CHAMBER 1 TO RETURN) 

» CD*W3*S0RT(2.*GC/RH0) 

WHERE W1 » TOTAL WINDOW WIDTH OF ORIFICE 1 
W3 ■ TOTAL WINDOW WIDTH OF ORIFICE 3 
CD • DISCHARGE COEFFICIENT 
GC ■ GRAVITATIONAL ACCELERATION CONSTANT 
RHO • DENSITY OF HYDRAULIC FLUID 
MU ■ VISCOSITY OF HYDRAULIC FLUID# CENTIPOISE 

THE METHOD OF SOLUTION UTILIZES THE TURBULENT ORIFICE EQUATION 
AND THE EQUATION FOR FULLY-DEVELOPED LAMINAR FLOW THROUGH AN 
ANNULUS# WITH FULL ECCENTRICITY ASSUMED. FOP ORIFICE OPENINGS 
WHERE SOME OVERLAPPED LENGTH EXISTS# THE PROCEDURE IS TO CALC- 
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ULATE THE FLOW RATE BY BOTH EOUATIONS# AND THEN USE THE ONE 
THAT GIVES THE SMALLEST ABSOLUTE VALUE AS THE ANSWER. FOR 
OPENINGS WHERE NO OVERLAPPED LENGTH EXISTS# ONLY THE TURBULENT 
ORIFICE EQUATION APPLIES. 

IMPLICIT R EAL ( L# M ) 

012 (T 1#T2 > -SIGN (1., (T1-T2) ) *SCRT ( A BS ( T1-T2 )) 
034(T3#T4)-4.5E0fc*(T3-T4)*0*RCL**3/MU 

C ***** ******************** CALCULATE 01 **********************: 
X2-LAP1-X 

X4-S0RT(X2**2+RCL**2) 

IF (LA PI .LE. 0.) GO TO 99 
C 

,C POSITIVE L APS t 

IF ( X .GE. LAP1) GO TO fr5 
01-RCL*C0EF1+Q12(PS#P1) 

01L-Q34(PS#P1)/X2 
IF ( ABS (OIL ) .LT. APS(Ol)) 01-01L 
i GO TO 20 

! 65 01-X4*COEF1*012(PS#P1) 

I GO TO 20 

!C 

C NEGATIVE laps* 

99 I F ( X .LT. L API ) GO TO 10 
j 01-X4*C0EF1*012(PS#P1) 

GO TO 20 

10 01-RCL*C0EF1*012(PS#P1) 

01L-Q34(PS#P1 )/X2 
IF(ABS(01L> .LT. ABS(Ol)) Q1-01L 
C 

C ************************* CALCULATE 03 *********************** 

20 X1-LAP3+X 

X3"SQRT(X1**2+RCL**2) 

IF (LAP3 .LE. 0.) GO TO 19Q 


C 
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*C POSITIVE LAPSl 

IF ( X .LE. -LAP 3 ) GO TO 165 

03*RCL*C0EF3*012(P1»PP) 

03L-Q34(P1#PR)/X1 

IF ( AB S (Q3L ) .LT. ABS(Q3>> 03-03L 

GO TO 120 

165 Q3«X3*C0EF3*012(PliPP) 

GO TO 120 
C 

c NEGATIVE LAPS i 

199 IF (X .GT. -LAP3 ) GO TO 110 
O3-X3*C0EF3*O12(Pl#PR ) 

GO TO 120 


110 03-RCL*C0tF3*012(P3#PR) 

03L-Q34(P1,PP )/Xl 
IF(ABS<03L) .LT. A9S(03)) 03-03L 
120 RETURN 

EN^ 


SUBROUTINF L IN ITS ( X, XDDT, XMA X, XMIN ) 

STATEMENTS FOR THIS SUPROUTINE OBTAINED BY PHONE BY 
JOHN P, MCGEHEE ON 2/1/77. 

IF ( X .GE. XMAX) GO TC 10 
IF (X .LE. XMIN) GO TO 20 
GO TO 30 


RD020177 

BD020177 
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10 X-XMAX 

IFIXOOT .GT 
GO TO 30 
20 X-XMIN 

IF { XOOT .IT 
30 RETURN 
ENP 


0.0) X DOT - 0.0 
0.0) XDOT ■ 0.0 


The ident CSCMODS contains the code to interface the active routines 
with the remainder of the program. In subroutine EXE, a call to the 
comdeck ACOBLK was inserted before the LOGICAL statement and the 
call to the landing gear routine was changed as follows. 


CALL LGFAR2 

IF (IAB$tINDLG).NE.3) GO TO 594 
CALL ALGEAR1 
GO TO 596 
594 CONTINUE 

CALL LGEAR3 
596 CONTINUE 
CALL FLEX? 


The following code was added to subroutine INUPD as the first 
executable statements to monitor changes in the number of 
integration variables. 


NNUH • NUN+N 
WRITE ibr 600) NNUN 

600 FORNAT ( 5X» 32HNUHBER OF INTEGRATED VAR I ABLE S •# 1 3) 


To allow for a greater number of integration variables the common 
block LGDE was expanded in LGDET, LGEAR1 , LGEA3C, and SDFLGP as 
follows . 

C0MM0N/LGDE/LAC50)»FC2(5)#P2(5)»PRE5(5)»C (5)* IPPT,LTPT 
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Subroutine LINES was changed as follows since 51 lines are too many 
for 8 1/2 inch paper. 

IF(L0NG.LE.41)RETURN 


Subroutine 0PT1 was changed by calling the active common block 
before the REAL statement, by adding the following EQUIVALENCE 
statement 

EQUIVALENCE (DM155(133)# INDLG) 


to make the variable INDLG available and the call to the landing 
gear code was changed as follows. 


2062 CALL SACS3 

IF (IABS(INDLG).NE.3) GO TO 2070 
CALL ALGEAR1 
GO TO 2075 
2070 CONTINUE 
2125 CALL LGEAR3 
2075 CONTINUE 

CALL FLEX3 


In subroutine LGEAR1 , the number of integration variables was 
increased by adding the following line of code before the call to 
INUPD, and 


IF ( I ABS ( INDLG ) .EO. 3) NCF0-10+NSTRUT 
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the active control initialization is accomplished by adding the 
following immediately before the statement labeled 3. 

IF ( TABS ( IND16) •E.0*3) CALL. ACTINIT 
In subroutine LGEA3C, the following EQUIVALENCE 

EQUIVALENCE ( DM1M155) , INDLG) ’ 

statement was added to make the variable INDLG available. The 
following test was added after 

IF <IABS(INDLG).E0.3) GO TO. 31 

the statement labeled 27 and the similar test below 

IF (IABS(INOLG) • E0 • 3 ) GO TO 46 

was added after the fifth line below the statement labeled 4. A 
call to the active gear common block was added to SDFLGP. Program 
output capabilities were expanded to include the active control 
parameters by including the following DIMENSION and DATA statements 


in subroutine SDFLGP. 

DIMENSION AC0VAR118), AC0VAR2<8), AC0VAR3C8), AC0VAR4{8>, 

* AC0VAR5( 8 ), ACQVAR6(B )« AC0VAR7(8), ACOV AR8 ( 8 ) , AC0VAR9 ( 8 ) 

DATA (ACOVARKI), 1-1,8 ) / 5HVQL1 T, 5HV0L2T, 5HV0L3T, 5HPGA1T, 5HPGA2T, 

* 5HPGA3T , 5HGAHAH, 5HC0EF0/ 

DATA(AC0VAR2(I),I*1,8 ) ./2HQ0, 4HVCUM, 6HBL FORT, 6HBUF0RT, 5HFF0RT, 

* 6HF0RCHT , 6HF0AHST, 6HF0NHST / 

DATA ( ACOV AR3 ( 1 ) , 1-1,8) / 5HCFF0R, 5HFST0P, 6HF0RSST, 6HX VALVE, 3HXSV, 

* 5HDELTX,6HDELTX1,6HDLTX1D/ 

DATA(AC0VAR4(I)> 1-1,8) / 2HDF, 3HDP 1, 2HPS , 2HP1, 3HQSV, 4HQSVN, 4HQS VI , 

* 4HQSV3/ 

jDATA(AC0VAR51I),I-l,817^agp.SlL0-,3HHMH,6HDMTAKH,5HXST0T,5HICaSV^ 

* 4HENUP»5HWLF0R,5HIQPC0/ 

DATA( AC0VAR6 ( I ) , 1-1,8) /6HI IXS VH, 6HIIXS VL, 5HIXSVH, 5HI XSVL, 5HIPASS 
*, 3HNAC, 4HRESA, 2HS A/ 

DATA ( AC0VAR7 { I ) , 1-1,8) /6HVELDEC, 6HULF0RR,6HIDE ACT, 4HZSSC, 4HC0PA, 

* 4HSIPA, 5HDST0P, 6HFST0PK/ 

DATA( AC0VAR8( I), 1-1,8) /5HWF0RT , 6HV0LAHT, 6HV0L ANT , 5HQSVCU, 3HXMA, 
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♦ 4HXHA5*4HXHA8*5HVHA11/ 

DATA!AC0VAP9!I)* 1-1*8) /6HXSVDDD* 5HXSVDD* 6HXS VDQT* 2HPR* 4HIFPI* 

♦ 6HIF$T0P*6HISTR0X,4HI$ET/ 

The actual output is accomplished by the following code which was 
added three lines below the statement labeled 32. 


IFCIABSIINOLG) .NE.3) GO TO 50 
CALL STFL !2*8*AC0VAP1 ) 

DO 33 I»1*NSTRUT 

CALL ST0VAP!8,V0LlT!I)*V0L2Tm*V0L3T!I)*PGAlT!I>*PGA2Tm* 

* PGA3T!I)#GAMAH!I)*C0EF0! I)) 

33 CONTINUE 

CALL $TFL(2*8*AC0VAP2) 

DO 34 I-1*NSTRUT 

CALL ST0VAP!8*00!I)*VCUM! I),BLFOPTm*BUFOPT!I)*FFOPT!I)* 

* F0RCHT!I)^F0AHST!I)*F0NH$T!I)) 

34 CONTINUE 

CALL STFL(2*8*AC0VAR3) 

DO 35 I«1*NSTRUT 

CALL ST0VAP(8*CFF0P(I)*FST0Pm*F0RSST(I)*XVALVE(I)*XSV(I), 

’ * DELTX(I),DELTX1(I),PLTX1D(I)) 

35 CONTINUE 

• CALL STFL(2*8,AC0VAP4) 

DO 36 I«1*NSTRUT 

CALL STOVAR ( 8, PF ( I )* DPI ( I )* PS (I),P1( I) *OSV{ I )*OSVN( I )*0SV1(I), 

. *OSV3(I)) 

36 CONTINUE 

CALL STFL(2*8*ACnVAP8) 

DO 37 I-l* NSTPl'T 

CALL ST0VAR!8*WF0RT!I)»V0LAHT!I)*V0LANT!I)*QSVCU!I)*XMA!I)* 

* XHA5(I)*XHA8(I)*XMA11CI)) 

37 CONTINUE 

CALL STFLI2*8*ACOVAP9) 

DO 38 I-1*NSTRUT 

CALL ST0VAR!8*XSVPDD!I)*XSVDD!I)*XSVD0T(I)*PP!I)*FL0AT!IFPI!I)) * 

* FLOATdFSTOP(I) )* FLOAT! I STROK (I ))*FLOAT!I$ET!I > )) 

38 CONTINUE 

CALL STFL ( 2* 8* ACOVAR 5 ) 

DO 39 I-l* NSTRL'T 

CALL ST0VAP<8*EPSItnm»HNH(I)*DMTANH(I)*XST0T(I ), FLOA T ( ICOSVI I ))* 

* ENUP(I)*WlFOR(I),FLPAT(IOPCO(I))) 

39 CONTINUF 

CALL STFL ( 2* 8* AC0VAP6 ) 

DO 40 I»1*NSTRUT 

CALL ST0VAP{8*FL0AT(IIXSVH(I) ) * FLOAT! IIXSVL ! I ) )* FLOAT! IXSVH!I) )* 
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* FLOAT(IXSVLII) )» FLOAT ( I PASS (I) ) > 

* FLOAT(NAC(I))»RESA(I)>SA<I>) 

4 0 CONTINUE 

CALL 5TFL(2»e,ACOVAR7) 

CALL STOVAR(8,VFLPFC»WLFCPP#FLOAT( IDE ACT) , ZSSC>CPPA,SIPA#DSTOP 

* FSTOPK) 

5C CONTINUE 

The active control variables are placed in the proper arrays for 
subsequent numerical integration by the following code which was 
inserted in SDFLGP three lines below the statement labeled 5. 


IF ( IABS ( INDLG ) .NE. ?) GO TO t 

11 ■ I+3*NSTRUT 

12 ■ I+4*N$TRUT 

13 - I +5*NSTRUT 

CALL UPDAT<1,LA(I1)>PGA1T(I)>DU#0U,DL'> DU) 

CALL UPDAT(1,LA(I2)#VCUH(I),DU,DU,DU»PU) 

CALL UPDAT(1»LA(I3)»0SVCLMI)>DU#PU»DU*DU) 

11 ■ 3*I+6*NSTRUT-2 

12 - I+9*NSTRUT 

CALL UP0AT(3#LA(Il)»XSVDD(I)f XSVD0T( I ), XSV ( I )# DU» DU) 
CALL UPDAT(1#LA(I2)*DFLTX1 (I)>DUjDU>DU>DU) 


The following code was added immediately after the statement labeled 
16 in subroutine READ to correct an initialization problem revealed 
by an operating system release which does not preset memory to zero. 

SLTSYH • C.O 
IBC - 0 
INXO- 0 
JBC - 0 

For the same reason, the following code was added below the 
statement labeled 2 in subroutine AUTS. 


DEL PI ■ 0.0 
TR ■ 0.0 
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The next phase in the development of the active control 
capability was the interface of the active code with the input and 
graphic output modules of the FATOLA program. This was accomplished 
with the correction 3ets GMMODS, JMMODS, DIRACT, and ACTIN. A new 
deck ACTIN was inserted after the deck READ and a new deck DIRACT 
was added following the deck DIR3DA. The contents of these new 
decks is shown below. 


SUBROUTINE ACTIN 
C0MM0N/ACTDIR/XNAME(71),L0C(71) 

COMMON/ACTT VE/DATA (646) 

DIMENSION IRA(55),MSG(58),IDATA(646) 

EQUIVALENCE (MSG(1),SYM), (MSG(2),0P) 

EQUIVALENCE (MSG(3),IRA(1) ),(MSG(58),INC) 

EQUIVALENCE (DATA ( 1 ) , I DATA ( 1 ) ) 

INTEGER COMMA, POINT, E, PLANK 

DATA R EMARK, COMMA, BLANK, POINT, E,ENDACT, MINUS, A INT/ 

1 -HREM,1P,,1R ,1R.,3PE,6HENDACT,1R-,3HINT/ 

100 CONTINUE 

1 F0RMAT(A6,1X,A3,1X,55P1,I1) 

2 F0RMAT(18X,A6,1X,A3,1X,55R1,I6) 

' 3 FORMAT (2OH0ERR0P«THE SYMBOL **,A6, 

1 26H** IS NOT IN THE DIRECT0PY/1H ) 

4 F0RMAT(44H0ERRDP .ILLEGAL CHARACTER IN NUMERIC FIELD ♦♦, 1R1, 2H** /) 
PEAD( 5, 1 ) SYM,OP,tpa,INC 
CALL LINES(l) 

J » 5 8 

IF(INC.LE.O) J ■ 57 
VR ITE { 6, 2 ) ( MSG ( I ) , I-l, J ) 

IF(SYM.E0. REMARK) GO TO 100 

if(sym.eo.enoact) go to qop 

DO 110 1-1,71 

IF(SYM.EO.XNAME(I) ) GO TO 120 
110 CONTINUE 

CALL LINES (3) 

WR ITE ( 6, 3 ) SYM 
GO TO 100 
120 CONTINUE 

INDEK - LOC(I) 

IF ( INC • EO.O ) INC ■ 1 

INDEX - INDEX * INC - 1 

NUMEXP - 0 

NEXP « 0 

IEXP - 0 

NL - 0 

NR • 0 
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130 


140 


150 


160 


NUML ■ 0 
NUMR ■ 0 
ISIGN ■ 0 
JSIGN - 0 


original pass £3 

OF POOR QUALITY 


LEFT • 1 
DO 210 1-1*56 
IFd.FQ.56) GO TO 140 
IFdRAd) .EO. BLANK) GO TO 210 
IF(IRA<I).EO. COMMA) C-0 TO 140 
IFCIPAd) .EQ. POINT) GO TO 170 
IFdRAd). EQ.E) GO TO 180 


IFdRAd) .EQ. MINUS) C-0 TO 200 

IF(IRAtI).GT.36) GO TO 130 

IF(IRA(I).LT.27) GO TO 130 

NUM ■ TRAII) - 27 

IFCIEXP.EO.l) GO TO 190 

IF (LEFT.GT.O) NUML - 10+NUML + NUM 

IF(LEFT.GT.O) NL - NL + 1 

IFILFFT.IT.O) NUMR - 10*NUMR 4 NUM 

IF (LETT • LT.O ) NP « NP 4 1 

GO TO 210 

CALL LINES(3) 

WP ITE ( 6* 4 ) IRAd) 

GO TO 210 
CONTINUE 

IF(NL.EO.O.AND.NR.EQ.O) GO TO 210 
IF(NR.EO.O) GO TO 160 

X - FLOAT ( NUML ) + FL0AT(NUMR)/10.**NR 
IF (JSIGN. EQ.l) NUMEXP » -NUMEXP 
IFCIEXP.EO.l) X - X*flO. )**NUMEXP 
IF(ISIGN.EQ.l) X ■ -X 
DAT A( INDFX ) - X 
NUML - 0 


NUMR - 0 

NL ■ 0 

NR - 0 

LEFT ■ 1 

ISIGN - 0 

JSIGN - 0 

IEXP - 0 

NEXP - 0 

NUMEXP - 0 

INDEX ■ INDFX 4 1 

GO TO 210 

CONTINUE 

X - NUML 

IF( JSIGN. FQ.l) NUMEXP ■ -NUMEXP 
IFCIEXP.EO.l) X - X*(10. )**NUKEXP 
IF (I SIGN .EQ.l) X » -X 
NUML ■ X 


IF(OP.EO.AINT) I DATA ( IND FX ) ■ NUML 
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| IF(OP.NE. AINT) DATA(INDEX) ■ X 

! GO TO 150 

t 170 CONTINUF 
LEFT * "I 

! GO TO 210 ORIGIN AL PAQP rn; 

180 CONTINUE OF POOR QUALITY 

GO TO 210 
190 CONTINUE 

NUMEXP - 10+NUNFXP NUM 
NEXP ■ NEXP + 1 
GO TO 210 
200 CONTINUE 

IF(IEXP.EO.O) ISIGN ■ 1 
IF(IEXP.NE.O) JSIGN - 1 
210 CONTINUF 

GO TO 100 
999 RETURN 

END ( 


BLOCK DATA UTRACT 
C0MMQN/ACTDIR/NAME(71)»LPC(71) 



'AT A NAME/ 

6HAMUH * 

6HAPINT * 

6HAREA1 * 

6HAREA2 

1 

6HAREA3 * 

6MAREM0 * 

6HARE03 * 

6HBETA * 

6HBLMU 

2 

6HBUMU * 

6HCDM0C * 

6HCDM0E * 

6HCDSV * 

6HCD3 

3 

6HCFF0R * 

6HDELT * 

6NDI0TA , 

6HDSV * 

6HEPSIL0 

4 

6HEPSR0L* 

6HFPSSLP* 

6HFTASV * 

6HGAMAH * 

6HGAMAN 

5 

6HGNP * 

6HIDEACT* 

6HKAPT * 

6H0MRUN * 

6HPATM 

6 

6HPGAHAC* 

6HPGALAC* 

6HPGA1I , 

6HPGA2I * 

6HPGA3I 

7 

6HPERCNT* 

6H0PUMPS* 

6HRCLSV * 

6HPH0H * 

6HTAUF 

8 

6HTC1 * 

6HTC2 * 

6HTC3 * 

6HTC4 * 

6HV0LAC I 

9 

6HV0LANI * 

6HV0L1I , 

6HV0L2I * 

6HV0L3I * 

6HWC 

1 

6HWC1 * 

6HVSV * 

6HVSV1 * 

6HWSV3 * 

6HWLF0R 

2 

6HWLF0PR* 

6HXBIAS * 

6HXDDMA X* 

6HXDDMIN* 

6HXKA 

3 

6HXKF * 

6HXKSV * 

6HXLPSV1* 

6HXLPSV3* 

6MXSC0M 

4 

6HXSTHR * 

6HX$VD*N, 

6HXSVDMX* 

6HXSVMAX* 

6HXSVMIN 

5 

6H7ETAC1* 

6HZFTAC2/ 




DATA LOC/ 

1* 6* 

16* 21* 26* 31* 36 

* 61* 46 

1 

56* 

62* 67* 

72* 82* 77* 109* 141 

* 135* 152 


2 157* 162* 163* 195, 200* 201, 212* 263* 274, 275 

3 281* 286* 291, 301* 311* 276* 346* 387, 397* 410 

4 411, 412* 413* 414, 621, 631* 421, 431, 441, 451 

5 452* 641, 642* 643, 458, 463* 464, 611, 616* 474 

6 479* 484* 489, 494* 561* 499* 591* 596* 6C1* 606 

7 644, 645/ 

END 
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The GMMODS correction set expanded the dimensions of the TITLE, BUF, 
TBUF , and BMM arrays in the PLTDAT program as illustrated below. 

DIMENSION TITLE (20)*BUF(550)»NDIL( 28)»TBUF(550) 

1 BM*( 2#550)*CMMDS(6)*DEPVAP(5)*LINE(7)*NDVA(5) 

The JMMODS correction set interfaced the new decks with the FATOLA 
program. All DATA statements in ACTINIT were replaced with the 
single DATA statement 

DATA ICOSV* IFSTaP»II/ll*C/ 

Subroutine SDFLGP was modified to output active control parameters 
to TAPE13, the disk file which communicates with PLTDAT to generate 
graphic output. The DATA statement 

DATA N19/19/ 

was inserted in this routine and the write statement below the 
statement labeled 115 was replaced with: 

IF (ISUM1.NE.0) WRITE (13) N1 9* I SUM1 * DATS, 0P17* ACO VAP 8 ( 1 ) , 

1 AC0VARP(A)*AC0VARA(5)»AC0VAP1(A)* ACDVAPK5) 

Additionally, the final continuation card in each of the tests on 
ISTPL1, ISTPL2 , ISTPL3, ISTPL4 , and ISTPL5 were replaced with the 
following statements respectively. 

1 0MET(1*1)*WF0PT(1),0SVCU(1),CSV(1 ),PGA1T(1) »PGA2T(1 ) 

1 0MET(1#2)*WF0PT(2)*0SVCU(2)*CSV(2)»PGA1T(2)*PC-A2T(2) 

1 0MET(1*3),WF0RT(3),0SVCU(3)*0SV(3),PGA1T(3)»PGA2T(3) 


ORIGINAL. PAG2 IB 
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1 0METY1,4),WF0PT(4).0SVCI'<4)#0SV<4)>PGA1T(A)*PGA2T(4) 
1 0MFT(1,5),WF0RT(5),0SVCU(5)#QSV(5)*PGA1T(5)#PGA2TC5) 


The data statement 


DATA ACTIVE/6HACTIVE/ 


was added to subroutine READ and statement 19 was replaced with the 
following. 


19 IF(SYM. EC. ACTIVE ) GO TO 805 
CALL OIPLAC(RAl,INCmANK) 


The following code was inserted after the STOP 25 


P05 CALL ACTIN 
GO TO 100 
610 CALL ACTIN 
GO TO 802 


and statement 26 was replaced with the following. 

26 IFCSYN.EO. ACTIVE) GO TO 810 
IF(SYN.EO.STCASE) GO TO 21 

The CSCMOD2 correction set contained general program 
corrections and enhancements with emphasis on the active control 
code. In the ACOBLK comdeck, the ACTIVE common block was modified 
by replacing F0AHST(5) with FW0RK(5), replacing PGA1T(5) with 
PGA1T1 (5) , replacing ZZSSC with ZSSC(5), and by adding IM0DE(5), 
CMASNG, and VMASS(5). The common block HTCOM was expanded to 
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include INDINTC5) , in EXE, MIMIN, LGDET , LGEAR1 , ACTINIT, ALGEAR, 
and FLEX1 . Subroutine EXE was further modified by adding 


STOP' "FLIGHT TIM? LIMIT" 


to lines below the statement labeled 743. Three lines of code 


DO 10 I-l#5 
10 INDINT ( I ) - 1 


were inserted as the first executable statements in subroutine 
MIMIN. In subroutine LGEAR1 , the following three lines of code were 
added as the last executable statements in the LGEAR1 entry point, 
(pre data initialization). 

DO 6 I - 1 # 5 
P<I) - 0.0 
fc P2(I) • 0.0 


The single DATA statement in ACTINIT (inserted by JMMODS) was 
replaced with the following code, 


EQUIVALENCE (DN1?(16)# GREFF)# ( DM1 ( 37 ) » A I Y Y* S ) 

DATA DSTOP,FSTPPK /0.004#0.0/ 

DATA ENUP#FSTOP#HMM,OSVN#PESA#SA /30+0.0/ 

DATA ICOSV#IFRI#IFSTOP,IPASS /20*0/ 

DATA I0PC0# ISET >10*1/ 

DATA IXSVH,IXSVL#IIXSVH#IIXSVL /20*0/ 
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the definition of OMRUN was changed to, 

OMP UN »ERDEG* 0.01745329 


and the following definitions were inserted in the 100 loop. 

INDINT ( I ) - 1 . 

VMASS ( I ) "AMASS 


Additionally, the line below statement number 80 was changed to 


\ PGA1T1 ( I ) ■PGA1 1 ( I 


.n order to make the variable GAMA available to the subroutine 
ALGEAR1, the variable DUM15(13) in the DIRCOM common block was 
replaced by GAMA, DUM15(12). The following lines of code were 
removed 

EQUIVALENCE (DM5 (16)* GREFF I 

DATA IFP 1/5*0/* FST0PK/O.0/*FST0P/5*0.O/*DSTOP/0. 004/ 

DATA SA*RESA*HMM*IX$VL*IXSVH*IIXSVL* IIXSVH* IP ASS 
1 /15*0.* 25*0/ 

DATA ENUP/5*0.0/ 

DATA ISET*IOPCO*QSVN/10*1*5*0.0/ 


and were replaced with 


EQUIVALENCE (0M5 ( 16 >* GPE FF )* (D*2( 27)* AXP7F)* (DM2 (28 )* AX77F ) * 
*(DM2(29)*AYP7F), (DM2(30)*AY77F)* (DM2(31)*AZP7F)* (DM2(33)*AZ77F) 
*(DM1(37),AIYY8S) 

DIMENSION INDEACT(5)*IPST0P(5)*AIC (5),PGA1T(5) 

DATA AIC* INDEACT*IPSTOP /5*0. 0*10*0/ 




CMASNG - AIYYBS/AMASS + AMAS$*PXd)*PXd J/AIYYPS 

CMASNG - 7.9677 

VMASS(l) ■ AMASS/CMASNG 

ENCG ■ 0.5*A M ASS*ZG77Fld)*ZG77Fld) 

ZD A NT ■ ZG77F1 (1 )-0I77R*PXU) 


The following two lines of code 


18 IFdDEACT.EO.l) GO TO 56 

19 IF ( IDEACT. EO • 2) GO TO 80 


were replaced with 


C 

IP DO 90 I»l#NSTRl'T 

IF l INDEACTd) .EO.l) 00 TO 56 
IF (INDEACT(I) .E0.2) GO TO 80 


The following lines of code were added after the test on OMRUN and 
after statement number 25, respectively. 


IFd.EQ.l .AND. 7DANT.GE. VIDEO GO TO 90j 

IF ( I , EO i 1 . AND • ZDANT .GE .VELCEC + XG77F1 ( 1 )*TAN (ONRUN ) ) GO TO 9o’ 


The reduction of the control limit force was modified by replacing 
the three lines of code centered about statement number 56 with the 
following. 

INOFACT ( I ) »1 

56 IF(INDINT(I).E0.0) GO TO 58 
VLFOR d)«VLFORd)-PEDSLPd)*HT 
EPSILOd)-EPSIlOd)+EPSSLP*HT 

58 CONTINUE 
INDINT d ) *0 
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In the line of code IDEACT = 2, IDEACT was changed to INDEACT(I). 
The four lines of code beginning the 65 loop were replaced with the 


following. 


C**+ CALCULATION OF THE WING-GEAR INTERFACE FORCE (WFORT ) 
j I'NSPRNG ■ 0.0 

DO 66 J“1#N$TPUT 

IF(OMETDHJ) .NE. 0.0) UNSPRNG ■ UNSPRNG+MASS ( J ) 

66 CONTINUE 

DWFORT ■l-S0RT(AXP7F*AXP7F+AYP7F*AYP7F+ 

€ AZP7F*AZP7F)+GR£FF)*( AN ASS-UNSPRNG ) 

WFORT ( 1 ) ■ DWFORT+FORSSTIl) 

DO 67 I *2* NSTRUT 

WFORT ( I ) - DWFORT /(NSTRUT-1 ) 

67 CONTINUE 
C 

DO 65 1*1 » NSTRUT 
C 

c*** 


T.ie line below the statement labeled 210 was replaced with 


PGA1T(I)*PGA1T1(I) 

IF(PGA1T1(I).LE.-1 600.0) PGA1T ( I )— 1600.0 


and GAMAN was replaced with GAMA in the definition of PGA2T(I). The 
two lines of code ending with the definition of 00 were replaced 
with the following. 


IF ( IMODE ( I ) • EO.O .AND. DDELTA ( I ) . L E. 0. 0 ) 112*113 
112 00 ( 1 ) ■ 0.0 
GO TO 109 
C 

113 00(I)«C0EF0(I)MAREMC<I)-APINT{I))*01(PGA1T1<I),PGA2T(I>) 
IF(00(I).lT.0.0 .AND. VCUM(I).LE.O.O) GO TO 102 
AIC (I ) *0.0 
GO TO 103 

102 IF(PGA1T1(I).LT.PGA2T(I)) C-0 TO 103 
GO TO 111 

m oom-o.o 

VCUM( I ) *0.0 
AIC (I )-1.0 

103 IFCOO(I).GT.O.O) AIC(I)-0.0 
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The test on I below statement number 150 was changed to 

1 1 F < IMODE ( I) • EQ.O) GO TO 297 


and the debugging change to 295 below this was changed back to 289. 
Statement number 284 was replaced with the following. 

284 IF(S(1»I) .IT.0.0) GO TO 160 
GO TO 161 

160 IPSTOP ( I )«1 

161 IF(S(1#I) .LE.DSTOP .AND. IPSTOP ( I ) .E0.1) GO TO 900 

In statement number 900, the limiting value for the stroke was 
changed from 0.0001 to 0.005 and the five lines of code from 
DP1(I)=0.0 to 11=0 were removed. Statement number 901 was replaced 
with the following code. 


901 IF (PGAIT(I).LE. (PGA1I <I)+500.0) .AND. 

t PGAlT(I).GT.(PGAlim-500.0)) GO TO 158 
GO TO 159 

1 5 8 IF(A8S('FT(I)),LE.FORCHT(I) .AND. S (1»I) .E0.0.0) GO TO 500 
159 IF(S(1»I).GE.0.0) GO TO 470 


The test on I below statement 500 was changed to 
IFdNODF(I) .EQ.O) GO TO 297 

and the branch to 295 for debugging purposes was removed. The 
following code was inserted after statement number 295. 
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297 12 • 2*I+NSTPUT— 1 
II ■ 12+1 

CALL INTFG(LA{I2)*SD2(1»I) ) 

CALL INTEGCLA<I1)*SD1(1*I)> 

C 

IF(IMODF(I).EQ.O> GO TO 450 


The two-line definition of ENUP(I) was expanded to 


Jffl'NE.r) GO TO 119 - 

ENUP(l) • 0.5TAIYYBS*QI77R*0I77R+(ENCG/CHASNG>* 
♦ <ZG77Fim/ABS(ZG77Fl(l>n 

GO TO 120 

119 FNUP(I) * FNCG/(NSTPUT-1) 

120 CONTINUE 


and the second test on WFORT(I) below statement 120 was changed to 
the following. 


IFIWFORT(I) .GE.0.0 .OR. DDELTA { I ) . LT .0 .0 ) XSTPT { I ) »1 .E20 


The two lines of code beginning with the definition of ZSSC, the 
definition of VELDEC, and the definition of PS(I) were changed as 
follows. 


7SSCC IJ-FWORK {I)*SB(I) 

IF(XST0T(I>.LE.(7$SCm-S<l>I) ) .OR. RESA(I).EO.l.O) SA(I)-1.0 


VElOEC-UWlFOPm+VLFOPR ) /2.* ( WLFOP (D-WLFOPP )) / 
f (AMASS*PED$LP(I> > 

PS (I) - ( ( ( PGAHAC C I J+PATP) *C VOL AN I (I ) /VOLANT ( I ) )+*GAMA J-PATM ) /1AA • 


0 


The definitions of QSV 1 C 1 ) and QSV3(1) below statement number 450 
were removed and the following new code was inserted in place of the 
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14 . I+4+NSTRUT 

15 - I+5+NSTPUT 

CALL INTEG(LA(I4),00(I )) 

CALL INTEG(LA<I5)>QSV{I) ) 

19 m I49*NSTRUT 

CALL INTFG(LA<I9),DLTX1D<I)) 


The four lines of code below statement 55 were removed to make up 
for the insertion at statement number 297. The test on the strut 
velocity at the top of the 28 loop was removed and the test on 
PGAIT(I) and the following two lines were replaced with the 
following. 


IF ( IMODE C I ) • EQ .0 .AND. DDFLTA ( I ) . L E . 0. 0 ) GO TO 19 
IF(S(1» D.NE.0.0 .OR. AICm.NE.1.0) GO TO 2C 
PGAlTim-PGAlI(I) 

PGAIT(I) -PGAII(I) 

19 CPI (I J-O.C 


The eight lines of code below the last call to LIMITS were replaced 
with the following code. 


13 - 1+3* N STRUT 

CALL INTEG(LA(I3)#DP1(I) ) 

19 ■ I +9*NSTRUT 

CALL INTEG(LA(I9),0LTX1D<I)) 

16 ■ 3*I+6*NSTPUT-2 

17 - 16+1 

18 • 16+2 

CALL INTEG(LA(I6),XSVDDD<in 
CALL INTEG(LA(I7)#XSVDD(in 
CALL TNTEG(LA(IP)#XSVDOT(I)) 


In subroutine SDFLGP, the DATA statements for AC0VAR1 and AC0VAR2 
were modified by substituting PGA1T1 for PGA1T and VMASS for FOAHST, 
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respectively. The five WRITE statements to unit 13, the call to 
STOVAR, and the call to UPDAT were also changed by substituting 
PAG1T1 for PGA1T, and the call to STOVAR for FOAHST was changed to 
VMASS . In subroutine ACTIN the size of the ACTIVE common block and 
the IDATA array were expanded from 646 to 656. In subroutine PACK, 
the size of the II array was changed from 1 to 6, a change which has 
no impact on program execution. Lastly, in BLOCK DATA DIRACT, the 
4th, 5th, and 14th continuation lines in the DATA statement for NAME 
were changed to the following. 

4 6HFP SROl , 6HFPSSLP, 6HETASV , 6HFW0RK , 6HGAM AH , 

5 6HGNP , 6HKAPT , 6H0MRUN t 6HPATM , 

5 6 U 7ETAC1> 6H7ETAC2, 6HIM0DF / 

The 2nd and 7th continuation lines in the DATA statement for LOC 
were accordingly changed as follows. 

2 157, 162, 163, 170, 195, 201, 263, 274, 275, 

7 644, 645, 651/. 

The EOR correction set is empty and does nothing. 

The EORPL correction set inserted a new deck, EORPL, after 
subroutine CTENGL. This deck does nothing except write a record 
mark on the COMPILE file such that those decks following it, PLTDAT 
and FIND, are not ordinarily processed by the compiler. 
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The CSCM0D3 correction set made several modifications to the 
program, primarily to the active code. In the comdeck ACOBLK, the 
variable ZDANT was added to the end of the ACTIVE common block. The 
labeled common blocks TABDIR, READ1 , UPDCAL, LGDE, STGT, TABCOM, 
CLEAUP, STORA, LGE, and ACTDIR were added to subroutine EXE, 
although the reason for these additions is unclear. None of the 
variables in these common blocks is required by EXE. In subroutine 
DEF, the variable NCASE was set to blanks with a DATA statement 
preceeding the FORMAT. This was done to clean up the printout on 
the first page of output which is printed before NCASE is defined. 

A DATA statement was added to subroutine LGEAR1 to provide initial 
values of zero to the arrays PGA1T1 , PGA2T, QSV, QSVCU, and WFORT. 

A call to the comdeck ACOBLK was added to subroutine LGEA3C to make 
the ACTIVE common block available. In subroutine ALGEAR, the 
definitions of CMASNG, provided in CSCM0D2, were changed to the 
following. 

CMASNG - l+( AMASS*RX(1)*PX(1) ) /AIYYPS 

Immediately prior to the definition of UNSPRNG, the variable UNSPR 
was set to zero, and the test inside the 66 loop, introduced by 
CSCM0D2 , was replaced with the following. 

IFlJ.EQ.l .AND. 0MFTD1 (1) .NE.C.O) UNSPR • MASS(l) 

,IF(J.GT.l .AND. OMFTDKJ) .NE.0.0) UNSPRNG ■ UNS PRNG + MAS S ( J ) 

Below this, the definition of WFORT(I) was changed as follows. 
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WFORT ( 1 ) ■ SR(l)MVMASS(l)-UN$PP)j 


In the continuation line of the definition of VELDEC, also provided 
by CSCM0D2 , the variable AMASS was replaced with VMASS(I). In 
subroutine SDFLGP, the DATA statement for ACOVAR7, introduced by 
CSCMODS , was changed by replacing the 6HIDEACT with 5HZDANT and the 
first DATA statement for N1 , N15, and N14 was removed. The 
following code was added beneath the write of N18, Ml, and DAT2 to 
unit 13, 


IF(IABS(INDLG).NE.3) 110*115 
110 IF(ISUMl.NE.O) WR ITE ( 13 ) N1A* ISUM1 *DAT3* 0P17 
GO TO 120 
1115 CONTINUE 


and a CONTINUE statement labeled 120 was added after the write of 
ACOVAR3(3). The following code was inserted after the write of 
ETADES, 

210 CONTINUE 

IF(ISTPLl.NE.O) WRITE (13) FT{ 1 )# SF ( 1 )* DELTA ( 1 )* P Cl )* P2 (1 ) *MA (1 ) * 
*SD2(1*1)*SD1(1*1)*S(1*1)*S2D2(1*1)#S2D1(1*1)*S2(1*1)*0METD1(1*1)* 
*0MFT(1*1) 

IF(ISTPL2.NE.O) WP ITF { 13 ) FT ( 2 ) * SF ( 2 )* DELTA ( 2 ) » P ( 2 ) * P2 ( 2 )* MA ( 2 ) * 
*S02(1*2)*SD1(1*2)*S(1*2)*S2D2(1*2)*S2D1(1*2)*S2(1*2)*0METD 1(1*2)* 
*0MET( 1*2) 

I F ( IS TPL3 »NE , 0 ) WRITE (13) FT ( 3 )» SF (3 )* DELTA ( 3 )* P (3 )*P2 ( 3 )* MA (3 ) * 
*S02(l*3)*Snid,3),S(l*3)*S2D2(l*3)*$2Dl(l*3),S2(l,3)*0MFTDl(l*3)* 
*0MCT(1*3) 

IF(ISTPLA.NE.O) VRITF(13) FT (4 ) , SF ( A ) * DELTA ( A ) , P (4 ) , P2 ( 4 ) , MA ( A ) , 

*$D2(1*4)*SD1(1*4)*S(1*4)*S2D2(1*4),S2D1(1*A),S2(1*A)*DMETD1(1*4), 

*0MET( 1* A ) 

IF(ISTPLS.NE.O) WRITE (13) FT ( 5 ) ,SF ( 5 ) * DELTA ( 5 ) * P (5 ) * P2 ( 5 ) * MA (5 ) * 
*SD2(1*5)*SD1(1,5)*S(1»5)*S2D2(1,5)*S2D1(1*5)*S2(1*5)*0METD1(1*5)* 
*0MET( 1*5 ) 

GO TO 230 
220 CONTINUE 
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and a CONTINUE statement labeled 230 was added after the write of 
F0RSSTC5). Finally, in the call to STOVAR, introduced by CSCMODS, 
the variable FLOAT (IDEACT) was replaced by ZDANT . 

The CSCMOD4 correction set, combined with a new deck, ACTNG , 
removed the nose gear active code from ALGEAR so that the nose gear 
could be treated independently from the main gears. Other minor 
changes were made to the active code as well as other parts of the 
program. The new deck was added after the ALGEAR deck and contained 
the following. 


SUBROUTINE ACTNG 
C 

********************** p 4 TOLA VARIABLES ******************************** 
C 

COMMON/DIRCOM/DM1(115)#ALPHP#DM1A(20)#AMASS#DM2{147)#DCL3#DCM1# 

C DCN1#DCL2#DCM2#DCN2#DCL3#DCM3#DCN3#DM3(99)#FXB7P# 

C DUM4(3)#FY87P(4)#F7e7P»0M5(17)#GXB7F#DM6m#GZB7F# 

C DM7(218)#INDSTE(48)#PHIPD#INDSTE1(23)#PSIPD#INDSTE2(156)#THTPD# 

C INDSTE3(5)#TIME#DM8(287),PI77P(2)#PI77R1(2)#DM9(4)# 

C 0I77R(2),0I77R1(2)»DM10(4),RI77R(2)#RI77P1(2)#0M11(48)# 

C XG77F(2)#XG77F1 (12 ) # YC-77F < 2 ) # YG77 FI ( 12 ) » 

C ZG77F(2)#7G77F1 ( 2) # DUM1 3 ( 52) # 

C NSTPUT#MASS(5)#RX(5)#RY(5)#RZ(5)#THETAD(5)#EPDEG#PGR# 

C NTiPfS(5)#RZER0(5)# V(5)#DELTAM (5) #M0MBNT(5 )# 

C RF (5 ) # VZ #IFD#P7ER0(5)#V7ER0(5)»A(5)#P20(5)#V20(5), 

C A2(5)#IL#S2T(5)#FS2(5)»C2L ( 5 ) # M AS S2 ( 5 ) # MUS ( 5 > # 

C CC (5)»CE(5)#C2C(5)#C2E(5)#NVGPT,NPP,MB(5)#PLT#N DELTA# 

C ES(5)#SB(5)#SD21(2)#SD22(2)#SD23(2)#SD24(2)#SD25(2) 

C 

COMMON/DIPCOM/ 

C SD11 (2)#SDl2(2)#SP13(2)#SD14(2)#Sni5(2)# 

C S1(2)#SS2(2)#S3(2)»S4(2)#S5(2)# 

C S2D21(2)#S2D22(2)#S2D?3(2)#S2D24(2)#S2D25(2)# 

C S2D11(2)#S2D12(2)#S2D13(2)#S2D14(2),S2D15(2)# 

C S21(2)#S22(2)#S?3(2)#S24(2)#$25(2)# 

C OMTnil(2)#OMTP12(2)»OMTri3(2)#OMTD14(2)#OMTD15(2)# 

C 0MT1 (2)#0MT2(2)#0MT3(2)»0MT4(2)»0MT5(2)» 

C A I (5 )#PI (5)#DFLTA1#PELTA2#DELTA3#DELTA4#DFLTA5# 

C DDELT1»DDELT2#DDELT3»CDFLT4#DDELT5#ISTAGE# 

C PRTMIN#IPLT#ISDF#I$TPL1#ISTPL2# ISTPL3# ISTPL4# ISTPL 5# 

C DM14(22)»IB15)#PM15(127),INDLG#D M 16(107)»CASK (44),INDFLX# 
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♦ NM0DE#DM18<40)# SXMOD(IOO)# S YMOD (1 00 ) # SZMOD Cl 00 ) # DM19 ( 1 686 ) # 

* G0D2(20)#DDM20<20>#DDM21(20>#SLEN1(5)#SLEN2<5># 

* GAMA#DUM15(12)#INDNVS#DDM22(1C)#ETADES# 

* DDM23(5)#AH(5)#PH(5)#DDM24(30) 

C 

C0MM0N/LGDE/LA(50)#FC2(5)#P2(5)#PRES(5)#C(5)#IPPT#LTPT 

-C 

C0MM0N/LGF/All(5)#A13(5)#A31(5>#A33{5>,RRCGXm# 

C RL (3#3)#PI{3#3#5)»RAX(5)#PAY<5)#RAZ(5)#TMP(3)#7ZERO(5), 

C XR(5)#YR(5)#EPSL0N(5)»PAm#FDELTA(5># 

C FTRZ(5)#RDX(5)»PDY(5)#RD7(5)#RDXG(5)>RDYG(5)#PP7G(5)# 

C VTX(5)#VTY(5)#VTZ(5)#C-Z<5)# VGPT (5 )# FTPX (5 )# FTRY ( 5 ), 

C DX(5)#DY(5),D7<5)#FT(5>,FDX<5)#F0Y(5),FFt5)*AA(5)#C2<5)# 

C SR(5)#SF<5)#PSKD(5)#MUVP<5),MTRX<5>,MTRY<5)# 

C MTP7(5)#MA(5)#RG11»RG13#RG31#RG33#IPPT» 

C MTX*MTY#MTZ#.SFTRX#SFTRY#SFTRZ#FTRA# 

C FTPB#FTRC#SMTPX#SMTPY#SMTPZ 
C 

COMMON /HTCOH/ HT# HT1, HT2# INDINT(5) 

C 

♦CALL ACOBLK 
C 

REAL MASS# MOMENT# MASS2#MUS#NTIRES# MB 

t t AL muvp#mtrx#mtry,mtrz#ma#mtx#mty#mtz 

<r 

DIMENSION IPSTCP(5)#AIC(5)#PGA1T(5) 

DIMENSION DELTA ( 5 > # DDELTA < * ) # PLGDE (47)# 

♦ SD2(2#5)#SD1(2#5)#S(2#5> 

C 

EQUIVALENCE ( DLGDE ( 1 ) # LA ( 1 ) ) 

EQUIVALENCE ( DELTA ( 1 )# DEL TA1 )#( DDE LTA ( 1 ) #DDEL T1 ) 

EQUIVALENCE C SD21 (1 )# SD2 ( 1# 1 ) ) # C SD11 (1 ) # SD1 ( 1#1 ) )# ( SI ( 1 >#S ( 1# 1 ) ) 
EQUIVALENCE (DM15C1 ># I TO ) 

EQUIVALENCE ( DM5 ( 1 6 ) # GREFF ) # 

♦ (DM1 (37)#AIYYBS) 

C 

DATA AIC# I PSTOP /540.0#5^C/ 

C 

01(T1#T2)*SIGN(1«, (T1-T2))*S0RT<ABS(T1-T2M 

C***** ****************************************** ************************ 

c 

I - 1 

c 

IF(INDEACT(I).E0.1) GO TC 56 
IF(INDEACT(I).EQ.21 GO TO BO 
IF(HMM(I) ,E0. 0.) GO TO 90 
IFCOMRUN ,GT. O.OJGO TC 25 
IF ( ZD ANT •GF.VELDEC) 90#40 

25 IF(70ANT.GE.VELDEC+XG77F1(1)*TAN(0MPUN)) GO TO 90 
.40 WRITE (6#1014)TIME 

1014 FORMAT (1H036H PEOUCE CONTROL LIMIT FORCE AT TIMf«#E16.8) 

INDEACT ( I ) "1 

* 56 IF(INDINTCI).EO.O) GC TO 5P 

WLFOR <I)-WLF0R(I)-PEDSLP(I)4HT 
EPSIL0(I)-EPSIL0(I)4EPSSLP*HT 
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1015 


CONTINUE 
INDINT(I) -0 
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IF ( WL FOP ( I ) .GT. VLFORR) GO TP 90 
VPITE(6>1015)TIME 

FORNAT { 1 H027H CONTROL AT VLFOPR AT TIME»>F16.8) 
INO EACT{ I ) "2 


80 VLFOR (D-WLFOP.R 

EPSILO(I)*EPSROL(I) 
90 CONTI NUF 



IF(KAPT(I).NE.O)GO TP 210 
APINT(I)-0.0 
210 CONTINUE 

PGAlTm-PGAlTl(I) 

IF (PGA1T1 (IDLE. -1600.0) PC-A1T (I >--1600.0 


VOLlT(I)-VOLlICI)-(APEAim-APINT(I))*S(l>I) 

V0L3T(I)«V0L3I(I)+APEA3(I)*S(1»I) 

V0L2T(I)«*V0L2I(I)-(AREA2(I)-AREA1(I)+APINT(I))*$(1#I) + (V0L3T(I) 

X -V0L3I(I))-VCUM(I) 

PGA2T(I)-AP2T0(I)*( (VOL2I(I)/VOL2T(I) )**GANA)-PATM 
IF f SOI f 1# I ) .EO. O.OJGP TO 104 

PGA3T(I)-((C0£F3(I)*ARE03(I))**2*PGA2T(I)-SD1(1,I)/ABS{SD1(1>I> ) 
X *(SD1(1»I)*AREA3(I))**2) 


£/( (C0FF3(I)*ARFG3(I))**2) 

GO TO 105 

104 PGA3T(I)-PGA2T(I1 

105 IF ( PG AIT ( I ) .GE. PGA?T(I))GO TP 106 
GO TO 107 

106 GANAH(T)-PH0H*GREFF*(1.0+(PGA1T(I)*3.04E-G8)— 

* (PGA1T(I )**2*2.72E-15) ) 

GO TO 108 

107 GAMAM ( I ) »RHOH*GR EFF* ( 1.0+(PGA2T(I)*3.04E-08)- 

* (PGA2T( I)**2*2.72E-15) ) 

108 IFIPGA1TCI) .GE. PGA2T ( I ))COEFO(I > - 

* C0M0C(I)*SQRT(AB$(2.*GPEFF/GANAH(I) ) J 
IF (PGA2T ( I ) .GT. PGAIT(I) ICOEFO(I)- 

* CDN0E(I)*SQRT(ABS(2.*GREFF/GAHAH(I) ) ) 

IF ( INODE Cl I.NE.O .OR. DO EL TA (I) . GT . 0 . 0 ) GO TO 113 
00(1) ■ 0.0 
GO TO 109 
C 

113 00(n-C0EF0(I)*(AREN0(I)-APINT(in*Ql(PGAlTl(I),PGA2T(I)) 
IF (00 (I) .LT. 0.0 .AND. VC UP ( I > . L E . 0 .0 ) GO TP 102 
AIC (I ) *0.0 
GO TO 103 

102 IFCPGA1T1(I>.LT. PGA2T(I) ) C-0 TO 103 

oom-o.o 

VCUMtl )-0.0 
AICCD-1.0 

103 IF(Q0(I).GT.0.C) AIC(I)«0.0 

109 IF (PGA2T ( I ) .LE. -1600 .0 ) PGA2T { I I--1600. 0 
IF ( PG A3T ( I ) .LE. -1600 .0 ) PGA3T ( I ) --1600 . 0 
I F ( DE LTA ( I ) .LE. 0.0 .AND. TINE .GT. DELT ) GO TP 1C1 
GO TO 110 
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QUALITY 

101 FFORT d ) "0.0 
GO TO 140 
110 CONTINUE 

C COMPUTE STRUT AXIAL FINDING FRICTION FORCE 

BLF0RT(I)»F0NHST(IJ*((SLEN2(I)“S(1»I) ) / (SLEN1 ( I)+S (1»I ) >+1.0) 
bufort(I)«fonhst(I) + (slen2(I>-s(i#d )/(sleni m+s(bin 
FFORT(I)-BUMU(I)*ABS(BUFORT(I) >+BLMU(I)*ABS(PLFORT(I)) 

140 CONTINUE 

C COMPUTE SHOCK STRUT CHARGING FORCF 

IF (S ( 1# I ) .GT. 0 #0 ) GO TO 142 

FORCHT(n«PGAlT(I)*AREAl (I) + PGA2T( I)*(AREA2(I)-AREA1(I) )-PGA3T(I) 
X *AREA3(I)+FF0RT(I)+CFF0P{I) 

C COMPUTE NORMAL AND AXIAL HUB TO SHOCK STRUT FORCES AT HUB 

142 FONHST(I)-SORT(FDX(I)**2+FDY{I)**2)-MASS(I)*GREFF*SIPA+SBFOT 
IFCABS(FTCI) ) .L E • FORCHT(I) .AND. S{1>I) .EO. 0.0)G0 TO 150 
GO TO 801 
150 CONTINUE 

FORSST(I)»FT(I) 

SOI (1#I)«0.0 

IF(IMODEd).EQ.O) GO TO 297 
IS TROK d ) "1 
GO TO 2e9 

C COMPRESSION VELOCITY OF SHOCK STRUT IS POSITIVE 

801 I - (SOI (1# I ) .LE.0.8 .AND. IFR(I).EQ.O) GO TO 2 
GO TO 3 

2 DMTANH(I )»1.0 
GO TO 284 

' 3 DMTANHd)«ABS{TANH(2.0*SPlUd>) > 

IFR(I) - 1 

284 IF (S(1>I) .LT.O.O) GO TO 160 
GO TO 161 

160 IPSTOPdJ-1 

161 IF(Sd*I) .LE.DSTOP .AND. IPSTOPd ) .EC. 1 ) GO TO 900 
GO TO 902 

900 IF CSC 1# I ) • IE. 0.005) GO TO 903 
GO TO 904 

903 SD2(ld)-0.0 
SD1(1#I)»0.0 
S(1>I )-0.0 
IPSTOP ( I ) "0 
GO TO 902 

904 CONTINUE 

IFdFSTOPd) .NE. 0 )G0 TO 906 
DSTOP-S(ld) 

FST0PK«2.0 + MASSd)*SDl(liI)**2/DST0P**2 
906 IF(Sd#T) .LE. DSTOP/2 .0 ) GO TO 908 
ESTOP (I)— FSTOPKMDSTOP-Sdd) ) 

GO TO 909 

908 FSTOPd)«-FSTOPK*Sd* I) 

909 IFST0P(I)»1 
IFRCI) - 0 
GO TO 901 

902 ESTOP d) -0.0 
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901 IF(PGAlTd).LF.(PGAlId)+500.0) .AND. 

l PGA1T(I).GT.(PGA1I(I)-500.0)) C-0 TO 158 
GO TO 159 

158 IF(A8S(PT(I) ).LE.FORCHTd) .AND. $ d, I ) . EO.O.O ) GO TO 500 

159 IF (S( 1# I ) .GE.O.O) GO TO 470 
IF(S01(1,I> .LT. 0 • 0 ) GO TO 470 
GO TO 471 

470 FFORT(IJ--FFORTd) 

CFFOR (I)— CFPOPCI) 

471 F0RSST(I)»-HPGA1T(I)-PGA?T(I))*(APEA1(I)-APINT(I) ) 
i +PGA2T(I)*AREA2(I) 

X -PGA3T(I)*AR£A3(I)+(FF0RT(I) 

1 +CFFORII) )*DMTANH(I J +FSTOP ( I ) ) 

500 IFdNDFLX.GE. 1 ) GO TO 295 

IF(IMODEd).EO.O) GO TO 297 
ISTROK (I) «1 

289 IF(Sd,I) .GT. 0.0) GO TO 295 
IFdQPCOd) .EO. 1) GO TO 295 
I F ( (PGA1I (I) -1000.0) .LT.PGA1TCI ) .ANO. 
i PGAIT(I) .IT. (PGA1I (I) +10C0.0)) 299,298 
299 IF ( XVALVF d ) .NE. O.OGO TO 311 
IF( IP ASS (I ) .EO. 1 ) GO TO 296 
XVALVF d )-XKSVd)*X*Alld)+XBI AS d ) 

IPASS (I)-l 
GO TO 294 


298 

IFdCOSVd) 

I0PC0(I)-0 

• 

O 

UJ 

• 

1 )G0 TO 291 



IF(XSVd) . 

LT. 0 

.002 .AND. XSVd) .GT. -0.002)291 

,295 

291 

IF (S02 (1» I ) 

.LF. 

0.0 .AND. ICOSV(I) .EO. 1 ) GO TO 

311 


IFdQPCOd) 

.EO. 

1 ) GO TO 295 



IF(PGAITII) 

.LF. 

PGA1ICI) ) GO TO 293 



IF ( IXSVL ( I ) 

.EO. 

1 ) GO TO 294 



XVALVEd WVALVEd)+XSVDHN(I)*DELT*PEPCNTd) 
IF(XVALVEd) .GT. -0.1) GO TO 294 
XVALVEd)— 0.1 
IXSVL (I )*1 
GO TO 29* 

293 IFdXSVHlI) .EO. 1)60 TO 294 
XVALVE(I)»XVALVEd)+XSVDNXd)4DELT*PERCNTd) 

IF ( XVALVF (I ) .LT. 0.1) GO TO 294 

XVALVE (I ) "0.1 
IXSVH(I)-1 

294 CONTINUE 
DLTX1D C I ) »0.0 
IC0SV(I)»1 

296 IF ( WFORT ( I ) .GT. 0.0 .AND. SUd) .IE. 0.0)G0 TO 410 
311 IF(NACd) .EO. 1 ) GO TO 307 

TFdIXSVHd) .FO. 1 )G0 TC 305 

XV Al VF d ) -XVALVE d>+XSVD*Nd)*nElT*PERCNTd) 
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- IF ( XVALVE ( I ) .LE. 0.0)305*400 

305 XVALVE d ) "0.0 
IIXSVH(I)»1 
GO TO 400 

307 IF ( II XSVL ( I ) .FQ. 1 )GO TO 308 

XVALVEd) -XVALVE d)+XSVDNXd)*PELT*PEPCNTd) 

IF( XVALVE (I) .C-E. 0.0)308*400 

308 XVALVE d ) -0.0 
IIXSVL(I)-1 

* 400 CONTINUE 

410 IFCXVALVE(I) .NE. 0.0)G0 TO 295 

icosvm-o 

OELTXld)-DELTXd)*XKFd) 

XHA(I)«(0F(I)+DELTX1(I))*XKA(I) 

XMAll ( I ) -XNA ( I ) 

XSV(I )-XKSVd)*XMAlld) + XBIASd) 

CALL LIMITS(XSVd)*XSVDOTd)*X$VHAXd)*XSVMINd) ) 

IPASS d ) -0 
IXSVL d)-0 
IXSVH d )-0 
IIXSVL ( I ) "0 
IIXSVH(I)-0 
I0PC0(I)-1 

C'.IL PHL0Z2(PSd)*PRn)»XSVd)*QCn)*XLPSVld)*XLPSV3d)*PCLSV(I), 
£ JSV(I)*CSVld)*CSV3n)*XMU*0T0LER*NITER*Pld)*QSld)*QS3d)> 

C 

295 IF (ISTROK. 11 ) .FO. 1 .AND. Sd*I) .GT. 0.0) IOPCOd )-0 
. 297 12 • 2* I +N STRUT-1 
II ■ 12+1 

CALL INTEG(LA(I2),SD2(1*I)) 

CALL INTEG(LAdl)*$Dld*I)) 

C 

IF< INODE ( I ) »EQ .0) GO TO 450 
C 

FNUP(l) • 0. 5*AI YYBS*0I77P (1 )*QI77R ( 1 ) ♦ ( ENCG /CMASNG )* 

* {ZG77Fld)/ABS(7G77Fld))) 

IF(HMfMI) .EO. 1 • 0 ) GO TO 130 
S A ( I ) *0. 

IF(VFORT(I).LT.O.) XSTOT (I ) -ENUP (I ) / ( (-WFOR T (I ) )*COP A ) 
IF(WF0RT(I).GE.0.0 .OR. ODELTA (I ) . LT.O .0 ) XSTOTd ) -1 . F20 
C ZSSC IS A PERCENTAGE OF SB(I) FOR ACTIVATING CONTROL-CDNOC (I ) IS U 
ZSSC(I)-FWORK(I)*SB(I) 

IF ( XSTOTd ) .L E • CZSSC d )— $ d* I > ) .OR. P ES A (I ) . EO.l . 0 ) SAd)-1.0 
PESA(I)-SAd) 

• IF ( SA ( I ) • EO.O. .OR. HNN(I). EO.l.) GO TO 130 
VLFOR d)«-WFORTd) 

C 

VELDE C"((WLFOR(I)+VLFOPR ) /2. * C VL FOR ( I ) -VLFORP ) ) / 

£ (VHASS(l)^REDSLP(I)) 
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WRITE (6, 121) TIME,WL FDR (I),VELDEC 

121 FORMAT ( 50H ACTIVE CONTROL INITIATED. . .TIME, WLFOR, VELDEC ■ # 

1 3F13.5) 

HMMtI>-l. 

130 IF(S(1,I) .GT. O.OISETID-O 

IF(H M M(I),EO.O.J GO TO 451 

IFt-WFORTm.GT.(WLFOR(I)4EPSIlO(I ))) DF ( I )• ( WLFOR CI>* 

£ EP$ILO(I))“(— WFORT(I)) 

IF (-W FOR Tfl) .LT. (WLFOR (I )-EP$IL0(I ) ) ) DF (I)- (WLFOR (I)- 
£ EPSILO(I))— (— WFOPTII)) 

IF (-W FOPT(I) .LE.(VLFOR(I)+EPSILO(I)).AND. 

£ -WFORT ( I ) .GE.(WLFOR(I)-EPSILO(I)) ) 
t 457,456 

457 IF ( S ( 1 , I ) .LE. 0 .0 ) GO TO 456 

IF ( WFORT ( I ) .GT. 0.0 .AND. OSVCU(I) .LT. 0.0)454,455 

454 DF(I) *WLFOP(I)-(-*WFOPT(I) ) 

GO TO 456 

455 DF(I)-0.0 

456 DELTX ( I )•$ (1,1 )-XSC0M (I) 

IF ( S ( 1, I ) .LE. 0.0 .AND. ISET(I) .EQ. 0)G0 TO 451 
GO TO 452 

451 DF(I)*0. 

DELTX { I ) *0 • 

452 XMA(I)»(DF(I)+DELTX1(I))*XKA(I) 

IFtGNR.EO.l. .AND. XMA ( I ) . GT.O. ) XMA(I)- 

l XMA(I)*SORT( (PGAIT(I)-PGALAC(I)) 

X /(PGAHAC (I)-PGAIT(I) ) ) 

NOTE » SUBROUTINE *FL07E2» COMPUTES THF FLOWS FROM THE PRESSURES 
IN UNITS OF INCHES. 

PI (I) "PGAIT(I) / 144 • 

C COMPUTATION OF HIGH PRESSURE ACCUMULATOR NITROGEN VOLUME 

C ANO ACCUMULATOR PRESSURE 

VOLANT ( I ) *VOL ANT ( I ) +OSV.N ( I )*DELT-0 PUMPS ( I )*DELT 

PS(I)-(((PGAMAC(I)4PATM)*(V0LANI(I)/VOLANT(I))4*GAMA)-PATM)/144.0 
IF ( PS ( I ) .GE. 3000.0)464,465 

464 PS (I ) "3000.0 
VOLANT(I)»VDLANI(I) 

465 VOLAHT(I)-VOLACI(I)-VOLANT(I) 

IF ( VOLAHT ( I ) .LE. 0.0)466,467 

466 WRITE (6,105C)TIME 

1050 F0PMATHH0//45H ACCUMULATOR OIL VOLUME INSUFFICENT AT TIME«,E16.8 
1 ft) 

CALL LGEAP6 
STOP 500 

467 CONTINUE 

CALL FL0ZE2(PS(I),PRm>Pl(I),XLPSVl(I),Xl PSV3 ( I ) , PCLSV ( I ) ,DSV { I) 
E XSV(I),0S1(I), 053(1), CSV1(I),CSV3(I),XMU) 

0SV1(I)«0S1(I)/17?B. 
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C 

450 CONTINUE 

0$V(I )-QSVl(I)-0SV3(I) 

IF (OS V { I ) .LT. 0.0)NAC(I)-1 
IF ( OS V ( I ) .GT. 0.0)NAC(I)-2 
IF (NAC ( I ) .NE. 2) GO TO 462 
OSVNd)-OSV(I) 

GO TO 463 

462 QSVN(I>»0.0 

463 IF(SD1(1>I).LT. 0.0 . AND . PGA1T M ) . LE . -1600.0 ) PGA1T (I) —1600.0 
C 

RETURN 

END 


In the comdeck ACOBLK, the variable IDEACT in the ACTIVE common 
block was changed to INITSW, the array IFRI was changed to IFR, the 
variable VELDEC was changed to ENCG, and the array INDEACT(5) and 
\.he simple variable VELDEC were added at the end. In subroutine 
EXE, the variable TPD was changed to TIME in the test below 
statement 412 and the return was changed to 

STOP ♦’EXECUTIVE ROUTINE” 


The following declaration statements were added to subroutine 
ACTINIT to make the variables S 


DIMENSION S ( 2» 5 ) 
EQUIVALENCE (SI (1 )»S (1*1 ) ) 
EQUIVALENCE (DM1 5 ( 1 ) * I TO ) 


and ITO available, and the DATA statement introduced by CSCM0D2 was 
changed by substituting IFR for IFRI. The variable INITSW was 



initialized to unity following the definition of OMRUN, and the 
following code was inserted after the definition of VMASS(I). 

INDFACT ( I ) - 0 
IF(ITO.FQ.l) INDEACTU) • 2 

The call to SETUP was changed to a call to ALGEAR. In subroutine 
ALGEAR1 the following declaration statement was added to make the 
variable ITO available. 

EQUIVALENCE (DN15(3)>ITO) 


The call to LGEA3C was replaced with the following code, 
IF(INITSV.EQ.l) GO TO 16 

and the following code was inserted after the definition of SIPA. 
CALL LGFA3C 


Statement number 18, which had been modified by CSCM0D2, was changed 
as follows. 

8 CALL ACTNG 

DO 27A I«2>NSTRUT 


The two tests on I and ZDANT introduced by CSCM0D2 were removed as 
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were the lines of code running from the definition of UNSPR through 
statement number 67. The DO 65 statement introduced by CSCM0D2 was 
removed and in statement number 801 , IFR was substituted for IFRI^ 
with a similar substitution in the statement below the statement 
labeled 3. The four calls to VIRK4 were removed and IFR was 
substituted for another IFRI below statement 909. The first four 
lines of code to modify ENUP(I), which had been introduced by 
CSCM0D2, were removed, as was statement number 120. The 

continuation line in the definition of VELDEC(I), which had been 
modified by CSCM0D3, was further modified as follows. 

£ VMASS(I)*PEDSLP(I) ) 

The following code was inserted below statement number 274, 

00 65 I«1*NSTRUT 

the SETUP entry point was replaced with the following, 

16 CONTINUE 
IN ITS W ■ 0 

and the definition of II below statement number 20 was removed. In 
subroutine SDFLGP, the DATA statement for AC0VAR9 was changed by 
replacing 4HIFRI with 3HIFR. The DATA statement for N 1 9 was 
replaced with the following, 


. DATA N20 /20/ 
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and the write to unit 13 was changed by replacing N19 with N20 and 
by adding ACOVAR3(3) to the list. The five write statements to unit 
13 below statement 220 were modified by adding the appropriate 
element of FORSST to each. Finally, the call to STOVAR was changed 
by substituting IFR for IFRI. 

The CSCM0D5 correction set contained the final corrections 
necessary to make the active code operational. In the ACOBLK common 
deck the ACTIVE common block was modified by replacing the variables 
COEF and GAMAN with ALGDUM1 and ALGDUM2, respectively, replacing the 
simple variable VELDEC with the array VELDEC(5), and by adding the 
two arrays C0EF1(5) and LM0DEC5). In subroutine EXE, the variable 
TIME was changed back to TPD in the test below statement 412, 
cancelling the effect of the CSCM0D4 change. In subroutine MIMIN a 
problem with the flight time limit was corrected by changing the 
test below statement 45 to the following. 

IF(lXF-XO).GT.l.E-lO) GO TO 211 

The DATA statement for NCASE in subroutine DEF was removed. In 
subroutine ACTINIT the 14th continuation line in the second 
declaration statement for the common block DIRCOM was changed to the 
following. 


*»D0M21 (20)»SlENDUM(lC)>GAMA,nUM15(12)>IN0NVS»Cr'M22(10),ETADES# 
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and the LGDE common block was removed. The DATA statement for IOPCO 
was changed to the following. 
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.DATA rOPCO>ISET,ISTPOK,NAC /10*l>10+0/ ; 


The following new DATA statements were added 


DATA INOFACT>INDINT>INITSW / 5 * 0 » 5 * 1 * 1 / 

DATA FF0PT,F0NHST,F0RCHT>F0RSST,WF0RT /2 5*0.0/ 

DATA QC#00#OSV1#OSV3#QSVCU»QTOLEP /25*0. >0.0001/ 

DATA DC0N>DMTANH>DF>DP1#DELTX>DELTX1>DLTX1D /6*1.0>25»0.0/ 
DATA X$VDOT>XSVDD>XSVDDD /15*0.0/ 

DATA PFDjLP>S8F0T,VCUH>VELDEC /5*1000C0.>0.>10+0.0/ 

DATA XMA1»XKA2>XPA3*XMA4#XHA6>XMA7>XMA9>XMA10 M0*0.0/ 

DATA XPA,X*A5*XMA8*XMA11 /20*0.0/ 


Assignment statements for the variables DCON, QTOLER , SBFOT , VELDEC, 
INITSW, REDSLP(I), INDINT(I) , ISTROK(I), NAC(I) , QSVCU(I), DF(I), 
DELTX(I) , DELTXKI), DLTXID(I), XMA(I), XMA5(I), XMA8(I), XMA1KI), 
XMAKI), XMA2 ( I ) , XMA3(I), XMA4(I), XMA6(I), XMA7 ( I ) , XMA9(I), 
XMAIO(I) , XSVDD(I) , XSVDDD(I) , XSVDOT(I), DPI (I), COEF, CSV1(I), and 
CSV3(I) were removed. The following code was added after the 
definition of C0EF3(I), 


C0EF1 ( I ) - CDSV(I)*S0RT{2.*GPEFF/GAMAH(I))*1A4. 
CSVl(I) ■ C0EF1 ( I ) ♦WS VI 
CSV3 ( I ) - C0EF3 CI)*W$V3 


and the definition of QC(I) was changed to the following. 

OSVKI) » 0.0 
0SV3 ( I ) - 0.0 
IF(ITD.EO.l) GD TO 60 
IF ( IMQDF ( I ) • FQ.O ) GO TO PO 
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The following new code was added beneath the second definition of 
QSV3(I) . 


GO TO 80 
C 

60 CONTINUE 

HMM ( I J - 1.0 
INDEACT C I ) • 2 
LMOOE(I) - INODE ( I ) 

INODE(I) - 0 

AP2T0 ( I ) • PGA2I ( I ) +P ATM 

VOLIT(I) - VOLlim-(APEAim-APINT(in*S(l#I) 

VOL 3T ( I ) ■ VOL3ICI)+AREA3(I)*S(l*I) 

V0L2T ( I ) « V0L2I(I)-(APEA2(D— APEA1(I)+APINTCI))*S(1>I) 
. +(V0L3Tm-V0L3ICI))-VCUM{I) 

PGA2III) « AP2T0CI)*C (V0L2I CU/V012TCI) )**GAKA)— PATM 
PGAII(I) ■ PGA2KII 
PGA3I ( I ) • PGA2I ( I ) 

FORSSTCI) ■ -(PGA2I(I)*APEAZ(I)— PGA3I(I)+APEA3(I) 

. + DMTANHCI )*CFF0RTCI)+CFF0R Cl > ) + FST0P Cl) ) 

VFOPTCI) - FORSSTCI) 

C 

80 CONTINUE 


Assignment statements for the variables Q0(I), VCUM(I), FFORT(I), 
FORSST(I) , WFORT(I) , FONHST(I) , FORCHT(I), and INDEACT(I) were 
removed. The test on ITO was removed, and the call to ALGEAR, from 
CSCM0D4, was changed to a call to ALGEAR 1 . In subroutine ALGEAR1 , 
the variable XCGRF was made available by the following statement. 


EOUIVALENCF (DN8(7P)#XCGRF) 


The DIMENSION and DATA statements involving the variable IPSTOP were 
changed as follows. 


DIMENSION IPSTOP (5 ), A ICC f )»PGA1T<5 ) 
DATA AIC»IPSTOP /?*0. 0*5*0/ 
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The definition of CMASNG was changed to the following. 


PXCG1 ■ PX(1)-XCGPF 

CMASNG ■ 1+(AHASS*BXCG1*PXCG1)/AIYYBS 


and in the definition of ZDANT, the variable QI77R was changed to 
the array element QI77R(1). The statement labeled 18 was changed to 
the following. 


UNSPPNG - 0.0 
DO 22 I-l/NSTPUT 

IF C IT0.EQ.1 .AND. TIME. GE. 2.0) IMODEII) • L MODE ( I ) 
IF(OMETDHI).NF.O.O) UNSPPNG ■ UNSPRNG+MASS ( I ) 

22 CONTINUE 
C 

OWFOPT « (-SQPT(AXP7F*AXP7F+AYP7F*AYP7F+A7P7F*AZP7F )+GREFF )♦ 
. (AMASS-UNSPRNG) 

C • 

CALL ACTNG 
C 


The following code was added at the top of the 274 loop. 


C 

WFOPT(I) ■ DWF0PT/(NSTPUT-1 ) 
C 


The four occurrences of VELDEC were changed to VELDEC(I), and the 

two definitions of II, left over from earlier VIRK4 calls, were 

removed. Statement 296 was changed by modifying the branch from 410 

to 400, and the statement label of 410 was eliminated. The test on 

IMODE below statement 297 was changed as follows. 

IF{IMODF(I).NE.O.O) GO TO 119 
OSVl(I) ■ 0.0 
OS V3 ( I ) » 0.0 
GO TO 450 
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The continuation line in the definition of VELDEC(I) was corrected 
as follows. 


CVHASS(I>*REDSLPm> 


In subroutine ACTNG, the DIMENSION statement for SD2 was expanded to 
include 0METD1(2,5), and 0METD1 was equivalenced to 0MTD11. The 
four occurrences of VELDEC were changed to VELDEC(I), and the 
following code was inserted below statement 90. 


UNSPPNG » 0.0 

IF (OMPTDl(l) .NE.0.0) UNSPRNG ■ MAS$(1) 
VFORT(l) - $R(1)*(VMAS$(1)-UNSPRNG) 


The branch in statement 296 was changed from 410 to 400 and the 410 
label was eliminated. The test on IM0DE below the statement labeled 
297 was changed to the following. 


IF(I"0DE<I>. NE.0.0) GO TO 119 

osvim - 0.0 

CSV3( I ) ■ 0.0 
GO TO 450 
119 CONTINUE 


In subroutine DEC0MP, the array IPS was moved from blank common to 
labeled common, IPSC0M, with an identical change in subroutine SOLVE. 
Finally, extensive comments were added to subroutine ACTIN, but no 


changes were made to the executable code. 
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The correction set PINARY was primarily intended to introduce 
logic which would allow the area of the metering pin to vary as a 
function of strut stroke. In the comdeck ACOBLK, the ACTIVE common 
block was expanded to include the four arrays PINN(30), PINM(30), 
STR0N(30), and STR0M(30), and in subroutine EXE, the arrays NAME and 
LOC in the ACTDIR common block were expanded from 71 to 75. In 
subroutine ACTINIT, the following new code was inserted after the 
initialization of QSV3. 


IF(KAPTCI).EO.l) GO TO 50 
APINT(I) ■ 0. 

. IFIKAPTIl) .EQ.O) GO TO 50 
IF(I.GT.l) GO TO 25 
STROK ■ -1. 

DO 10 J »1> 29 

I '<$TR0N( J).LT. STROK) GO TO 15 
r-rpoK ■ stron(j) 

IF(S(1,I).GE.STP0N(J).AND.S(1,I).IE.STR0N(J+1>) GO TO 20 
10 CONTINUF 
15 J - J - 1 
20 APINT(I) - PINN(J) 

C-0 TO 50 
25 STROK ■ -1. 

DO 30 J-1,20 

IF(STR0M( J).LT. STROK) GO TO 35 
STROK « STPOM(J) 

IF(S(1>I) .GE.STROM(J) .AND.S(1#I).LF.STR0M( J+l) ) GO TO 40 
30 CONTINUE 
35 J - J - 1 
40 APINT(I) ■ PINM(J) 

50 CONTINUE 


In both ALGEAR1 and ACTNG the three lines of code beginning with a 
test on KAPT(I) were removed. In subroutine ACTIN, the arrays XNAME 
and LOC in the ACTDIR common block were expanded from 71 to 75, and 
the arrays DATA and IDATA, representing the ACTIVE common block were 
expanded form 656 to 802. The following code was inserted as the 
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first executable statements. 

ZERO OUT PIN AND STROKE ARRAYS 

DO 10 J *683# 802 
DATA(J) ■ 0. 

10 CONTINUE 

The FORMAT statement labeled 1 was changed by replacing II with 12, 
and the upper limit on the 110 loop was changed from 71 to 75. In 

the DIRACT block data, the NAME and LOC arrays were enlarged from 71 
to 75. The final continuation card in the DATA statement for NAME 
was changed to the following, 

5 6H7ETAC1, 6H7FTAC2# 6HIM0DE # 6HPINN # fcHPINM , 

6 6HSTR0N # 6HSTR0K / 

and the final continuation card in the DATA statement was changed as 
follows . 

644# 645# 651# 683# 713# 743# 773/ 

The KLUGEZ correction set was intended to prohibit secondary 
piston calculations for the nose gear. The following code was 
inserted at the top of the 100 loop in subroutine LGEAR1 . 

********* 

c ********** TEMPORARY FIX TO FREEZE NOSE SECONDARY 
C 

IFtI.EQ.l) GO TO 59 
C 

c********** 

C 
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The correction set SECFIX was meant to provide constraints 
prohibiting over-extension or over-compression of the secondary 
piston in a manner similar to earlier corrections made by SDD for 
the main piston. In subroutine LGEAR1 , the following code was added 


after statement 57. 


S2 ( 1, I ) • -0.5*ES2(I) 
S2D1( 1# I ) • -l.F-10 
S2D2(1,I) ■ -l.E-10 


The two lines of code beginning with statement 61 were replaced with 
the following, 


61 I“CS2D2(l#I).LT.O.) GO TO 140 

1 <S201(1,I).LT.C.) $201(1,1) - 0. 


and the following line was added below the statement labeled 140. 


$ 20111 * 1 ) - 0 . 


For debugging purposes, the following code was inserted in 
subroutine LGEA3C below the calculation of TMP(I). 


IF(THD(1).LT.0.) VP ITF { 6* 1234 ) I ,S 2( 1* I ) * $201 ( 1 * I ) * 

1 $202(1,1) 

1234 F0PMAT(iy,7H*-*-*-*,I5,3E16.8) 

IF(T**P(1I.LT.0#> GO TO 31 


The TABFIX correction set corrected a table look-up problem 
associated with the secondary piston. In subroutine LGEA3C, the 



86 


last two calls to HIHO were changed by substituting S2(1,I) for 
S(1, 1). 

The correction set CSCM0D6 was intended to introduce a new 
variable, HT3, to be used from anywhere in the program to limit the 
integration step size in critical conditions and to correct a 
problem with the reduction of the control limit force. The HTCOM 
common block was modified in subroutines EXE, MIMIN, LGEAR1 , and 
ALGEAR1 as follows. 

C0*H0N/HTC0P/HT>HT1*HT2»HT3» INDINT ( 5 ) »H 


The ACTDIR common block was removed from subroutine EXE where it was 
not needed. The initialization of INDINT in subroutine MIMIN was 
changed from a 10 loop to a 445 loop and moved to beneath statement 
40. In subroutine LGEAR1 , the following code was introduced beneath 
statement 4, 

INTFLAG • 0 

and the call to INUPD was changed to the following. 

IFCINTFIAG.FO.O) CALL INUPD ( NDF 0* L A ) 

INTFLAG • 1 

In subroutine ALGEAR1 , the definition of WLFOR(I) above statement 56 
was changed by substituting H for HT. 
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The SECFIX1 correction set made a minor addition to the SECFIX 
changes to control the secondary piston over-compression. The 
following statement was added to subroutine LGEAR1 below statement 
140 


S2( 1> I ) - 0. 


Additional modifications to provide for a stroke dependent 
metering pin area were provided in the PINARYX correction set. the 
following new code was inserted in ALGEAR1 below the initialization 
of the RL array. 


DO 760 I-1»NSTRUT 
IF(KAPTd).EO.l) GO TO 750 
APINT(I) - 0. 

TF(KAPT(I).EO.0) GO TO 750 
IF(I.GT.l) GO TO 725 
STROK • -1. 

00 710 J*l»29 

IF(STRON(J).LT. STROK) GO TO 715 
STROK - STRONCJ) 

IF(S(1*I).GE.STRON(J).AND.S<1»I).IE.S7R0N< J+l) ) GO TO 720 
710 CONTINUE 
715 J ■ J - 1 
720 APINT(I) - PINN(J) 

GO TO 750 
725 STROK • -1. 

DO 730 J»l#29 

IF(STROM(J).LT. STROK) GO TO 735 
STROK • STRON(J) 

IPCSllf I).GE.STR0M<J).AND.S(1>I).LE.$TR0M{J+1) ) GO TO 740 
730 CONTINUE 
•735 J - J - 1 
7*0 APINT(I) ■ PINM(J) 

750 CONTINUE 
760 CONTINUE 
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The CSCMOD6 correction set was refined with the addition of the 

HTTRY mods. In subroutine EXE, the new variable HT3 was initialized 
to HT above statement 302. In subroutine MIMIN, HT3 was added to 
the list in the AMIN1 statement labeled 30 and the statement was 
moved to below statement 40. 


A restart capability was added to the program with the REST 
correction set which placed most all local variables into labeled 
common blocks and declared all common blocks in the main program to 
assure contiguous storage of all program variables. The unit TAPE7 
is used to hold the restart information. In program TOLA, TAPE7 was 


added to the program card. The following new code was added below 

the READ1 common declaration, 

COMMON/ST0PIT/DM2<2) 

COMMON /DIRCOM /DM3 (4059) 

C0MM0N/TABSRC/DM4(110) 

C0MMON/EXEAUT/DM5<9) 

C0MM0N/LG/DM6(7) 

C0MM0N/AUTSC/D*7<40) 

C0MM0N/AUTPPC/DM8<63) 

COMMON/ LGAUTS /DM9 (14) 

COMMON /FLXOP /DM10 (608) 

COMMON/ AUT SAC /DM11 ( 6) 

C0MM0N/HTC0M/DM12(10) 

C0MM0N/C0N TR0/DM13(4) 

C0MM0N/UP0CAL /DM14 (181) 

COMMON /LGDE/DM15(72) 

COMMON/ ST GT/DM16(10) 

C0MMON/TABC0M /DM17 (230) 

COMMON/CLEAUP/DMl8(3) 

C0MM0N/ST0RA/DM19(67) 

C0MM0N/LGE/0M20(299) 

COMMON /ACTIVE /DM21 (802) < 

C0MM0N/IPSC0M/0M23(20) 

C0MM0N/XEXE/DM24<3)> Bl ANK , STC0M2, STC0M3* DM25 ( 5) 
C0MM0N/XMIMIN/DM26(908) 

COMMON/XARRAY/DM27 

C0MM0N/XTFFS8/DM28(2) 

COMMON /XSAC SI /DM29 (106) 

C0MM0N/XCPT1/DM30(97) 

COMMON / XIGEP1/DM3K21) 
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C0MK0N/XLGE3C/DM32(12)>IFRI(5)»DM33(19) 

CCIMMON/XALGEA/AIC <5)> DM34 (14)» IP STOP ( 5 )#DM34X (10) 

C0MM0N/XACTNG/AICX<5)>IPST0X(5)#DM35(6) 

COMMON/XFlEXl /DM36 (2077) 

C0MM0N/XSDFLG/DM37(179) 

C0MM0N/XAUTS/DM28(8) 

COMMON/XFLARE/DM 39(20) 

C0MM0N/XAUTPR/DM«0(4) 

COMMON/RESTRT/IPST 

and the following code was inserted just above the first executable 
statement. 


DATA STC0M2,STC0M3»BIANKMHTMAX>5HSTAGE>6H / 

DATA IFR I /OtOfOtOfO/ 

DATA AIC#IPST0P/5*0. 0*5*0/ 

DATA DM34Y>DM34?>DM34A/5*0«>5*31000»>65*0»/ 

DATA AICX> IPST0X/5*0.0>5*0/ 


The following read sequence was placed immediately before the call 
1 i EXE. 

READ(5>2) IPST 
2 FORMAT ( T1 ) 


In subroutine EXE, the following declaration 


statements were added. 


COMMON/XEXE/END>SWT2*SWT3*BLANK>STCOM2#$TCOM3> 
1 MIM>NDEFS#TIMEA>TIMEP#TPD 
COMMON/RESTPT/IRST 
DIMENSION DMDl(l) 

EQUIVALENCE ( DND1 (1 ) #TABLF (1 ) ) 


and the DATA statement was removed. The FORMAT labeled 7, which was 
not referenced, was replaced with the following. 

5 F0RMAT(1H0#16X>*J0B RESTARTED AT*>E16.8) 

7 F0RMAT(1H0>16X>*PESTAPT TAPE WRITTEN AT*>E16.8) 
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The following statement was inserted as the first executable 
statement, 


IF(IRST.GT.l) GO TO 800 


and the new code below was inserted at the top of the staging logic 
below statment 416. 


IF(IRST.E0.1.0R.IPST.E0«3) GO TO 810 
GO TO 511 
800 CONTINUE 

READl 7) CDMP1(IJ)#IJ*1»H002) 

CALL LINfcMZ) 

WRITE ( 5 ) TIME* 

GO TO 511 
810 CONTINUE 

WR ITE (7 ) tDMDl( I J >*IJ»1*11002) 

CALL LINFS<2> 

WR ITE C 6# 7 ) TINES 


Local variables in subroutine MIMIN were transferred to a labeled 
common block, XMIMIN, as follows. 


COMMON / XN ININ/ AC H»ERP> J # K > KF> PO# P > S* XF , XK# X0> 
1 YMAX,YP,Y0»Y1»7 


The variable NMAX in subroutine ARRAY was transferred to common 

XARRAY , and in subroutine TFFS8, the variables TH1 and TH2 were put 

in common block XTFFS8. The local variables in SACS1 and 0PT1 were 

relocated to common blocks XSACS1 and X0PT1 as follows. 

COMNON/XSAC$1/AEP02#BETADE»HG#IG01>IG02»IG03# 

1 TC,TPP,CN 

C0MN1N/XPPT1/ALPHD1>P>BETAD1>C*D#PRAGC#E>F»FDC>_ 

1 G#H»INDER*J>K* L# L A# LTHTR P# M#MDX»M0Y*ND7»P»THTPPj 

2 THTRP1 > TMP 
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In subroutine LGEAR1, local variables were moved to XLGER1, 


C0MM0N/XIGEP1/8FX»BFY#8F7>BLM#B W M#BNM#DFXM*DFYM* 

1 DFZM,0LM>DMM>ERR#ILA#INTFLAG>I1#I2#NBB>NBH*NDE0# 

2 THETARiTTIME 

3 TEMP3>TMPETA#YAWPMM*YAWPRM#DELNM 


and the DATA statement for PGA1T1 was removed. Local variables in 
LGEA3C were moved to XLGE3C, 


C0MM0N/XLGE3C /CRNPRM*CRNPVR#DELMN# DFTRX# DFTRXM# 

1 dftry,dftrym,etave>etavem>fgpym,fi#hyptan,ifpi# 

2 IIP# IL2# IL3#ND#ND0#N0D#SIDEMU#SIDMUM#TEMP1#TEMP2« 


s d the DATA statement for IFRI was removed. In ALGEAR1 local 
variables were relocated to XALGEA , 


COMMON/XALGEA/AIC*BFX#8FY#8F7#BLM#BMM,BNM,DFXM# 

1 DFYM#OFZM,DLM#DMM,DNM,DWFOPT#IL4#IPSTOP#NBB#NBH# 

2 PGA1T»RXCG1#TTIME#UN$PRNG 


and in ACTNG they were moved to XACTNG 


COMMON/ X AC TNG/ A IC# IPSTOP# UNSPRNG# NIN# TIME L 


and the DATA statement for AIC was removed. In subroutines FLEX1, 
SDFLGP, AUTS, FLARE1, and AUTPR1, the following common blocks were 
created, respectively. 

COMMON/ XFLEX1/C0EF#C0PMAS#CTMP1, DIF F#FDC#GF, 

1 GF0RC1#GMASS#GSM0D>GTF#HDR#IG#II#IA#0MX01M, 

2 0MYD1M,0M7D1M#PTN#0S#0S1#RKSY#RVAP#PXA13#RZA11, 

3 SD0#SD1#SD2#SMASS#SUH1#SUM3#TITL#VAPY1 
COMMON/X$OFIG7ACQVAR1#ACOVAR2#ACOVAP3# AC0VAR4# 

1 AC0VAR5# AC0VAR6# AC0VAR7, AC0VAR8# ACOVAPO# DAT1# 
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2 0AT2*DAT3>DAT4>DAT5>ISUM1, ISUM2* L ASTPT,NHL,N1, 

3 N14#N15*N18*N20»0P16>0P17>0Pie,0P19,0P20#0P21 
CPHMdN/XAUTS/DELPI>0ELRDI»GAMPPP,SWf2#Tri i l, 

1 TMP2*TMP3>TMP5 

CtWQN/XFLARE/AE,AH,AX,Dl,ERRAD,GAMAPD#GAMAPR, 

1 GAMERP#GAMMAO, 11,RSP,SWT1,TAE#TMP1,TMP2#TMP3# 

2 TMP4#TMP5#TMP6>TTH 

The correction set PGAPRT changed the printed output. In 
subroutine SDFLGP, the array PGA1T was made available with the 
following declaration. 


C0'MM0NmLGFAfDMX<26),PGAlT(5)#DMXX<3) 

Additionally, the seven occurrences of PGA1T1, introduced by 
CSCM0D2, were changed back to PGA1T. 

The DELTFIX mods were intended to once again address a problem 
with the reduction of the control limit force. In subroutine EXE, 
the variable H was initialized to 0.0001 above statement 302. In 
ALGEAR1 , the test on TIME above statement 15 was changed by changing 
DELT to 0., and the following code was added at the top of the 274 
loop. 

DELT » 0. 

IF(INDINT(I) .NE.0) DELT « H 
INOINTtl) « 0 

The two statements beginning with statement 56 were replaced by a 
CONTINUE, and the next three lines were replaced with the following. 

WLF0R ( I )»WLF0R( I )~REDSLP ( I )*DELT 
EPSIL0(I)«EPSIL0(I)+EPSSLP*DELT 
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In statement 100, DELT was replaced by 0.0001. In subroutine ACTNG, 
the new HTC0M common block introduced by CSCM0D6 replaced the 
original declaration and PGA IT was moved from XACTNG to XALGEA. The 
following code was inserted at the top of the subroutine, 


DELT - 0. 

IFdNDINT(I) .NE.0) DELT • H 
INDINT ( I ) - 0 


and the five lines of code beginning with statement 56 were replaced 
with the following. 


56 C0NTINUF 

VI FOR Cl) - VLF0RCI) - REDSLP( I J+DELT 
l-^SILOm - EPSILO(I) - EPSSLPTDELT 


The test on TIME below statement 109 was changed by substituting 
0.0001 for DELT. 

A deficiency was noted in the active code in that the input 

signal and its modifications to the electronic compensation networks 

were not being treated as integration variables. The XMAFIX 

correction set was intended to correct this deficiency. In program 

TOLA, the size of the LGDE common block was increased from 72 to 112 

elements, and the ACTIVE common block was increased from 802 to 842 

elements. In the AC0BLK comdeck, the final two continuation lines 

of the COMMON declaration were replaced with the following. 

1#C0EF1 C 5) >LM0PE(5) >PINN(30) #PINM(30) *STR0N(30) #STR0M30) 

2#XMA1CT<5) * XMA 2PT ( 5 ) >XMA3DT<5) # XMA ADT( 5 ) »XMA6DT<5) * XMA7DT ( 5 ) 
3 » XWA9TT ( 5 ) $ XMA1CD( 5) 


^-3 
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In subroutine EXE, the size of the LA array in the LGDE common block 
was increased from 50 to 90 , the number of words being read from and 
written to TAPE7 was increased from 11002 to 11077, and an ENDFILE 7 
was added after the WRITE to unit 7. The size of the LA array in 
the LGDE common block was also increased from 50 to 90 in LGDET, 
LG EAR 1 , LGEA3C, ALGEAR1 , ACTNG , and SDFLGP . In subroutine LGEAR1 , 
the second test on INDLG was changed as follows, 

IF ( I ABS ( INDLG) .EO. 3) NDEO-10*NSTRUT 


and in ACTINIT the following DATA statement was added. 


DATA XHA1DT>XMA2DT,XHA3DT>XMAADT /20*0.0/* 
XMA6DT > XMA70T# XHA9DT* XHA10D 1 20*0.0/ 


In subroutine ALGEAR1, the following code was inserted after the 
definition of XMA5(I) , 


XHAIDT(I) - X HA ( I ) 
XHA2DT ( I ) ■ XHAl(I) 
XMA30T(I) ■ XHA5 ( I ) 
X*A4DT(I) - XHA3 ( I ) 


the following was added after the definition of XMA8CI), * 


XMA6DT(I) • X HA 5 ( I ) 
X*»A7DT(I) » XHAB(I) 


and the following was added after the definition of XMAII(I). 

XH A9DT ( I ) ■ XHA 8 ( I ) 

XHAIOD(I) ■ XHAll(I) 
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The following new code was inserted after the last call to INTEG. 


110 • I+10*NSTRUT 

111 ■ I+11*NSTPUT 

112 ■ I+12+NSTRUT 

113 ■ I+13*NSTRUT 

114 - I+14*N$TRUT 

115 - I+15*NSTRUT 

116 • I + 16*NSTPl*T 

117 • I+17+NSTPUT 

CALL INTEG(LA(I10)>XPAlDT(in 
CALL INTEG(LA<Ill),X*A2DT(in 
CALL INTEG(LA(I12),XMA3DT(I)) 
CALL INTEG(LA(I13)#XMA4DT(I) ) 
C A L L TNTE G ( L A ( I i'4 ) , X H A 6DT ( I )) 
CALL INTEG(LA ( II 5)# XMA7DT (III 
CALL TNTEG (L A ( 116 ) « XHA9DT ( I ) ) 
CALL INTE6{LA(I17)#XMA10D(I>) 


jn subroutine SDFLGP, the following new code was added after the 
last call to UPDAT. 


no 

in 

112 

113 

T14 

115 

116 
117 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


■ I-HO*NSTPUT 

■ I+11*NSTRUT 

■ I+12*NSTRUT 

■ I+13*NSTRL'T 

■ I+14*NSTPUT 

■ I+15*NSTPUT 

• I+16*NSTRUT 

• IM7*NSTRUT 

UPDAT (1,LA( 110 )#XHA1 (I) , DU*DU, DU>DU ) 
UPDAT(l#LACIlll#XHA2(I)>DU*DU#rU#DU) 
UPDAT (1^ LA(I12)#XPA3(I)#DU#DU#DU#DU) 
UPDAT(lfLA(I13)*XNA4(I)#DU*DU*DU*DU) 
UPDAT<l,LA(I14),Xf'A6<n,DU,DU,PU#DU) 
UPDAT(1,LA(I15)#XMA7(D#DU # DU#DU»DU) 
UPDAT(l*LA(I16)#X l «A<Jm#DU>DU#DU#DU) 
UPDAT (1, LA (I17),xrA10(I)>DU,DUyDU^DU) 


It was found that portions of the active code were referencing 


the controlled servovalve spool displacement when they should have 
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referenced the servovalve spool displacement. This problem was 
addressed with the XSVMOD correction set. Identical corrections 
were made to both ALGEAR1 and ACTNG. Statement number 500 was 
replaced with a CONTINUE. The following statement was introduced 
below statement 290, 

XVALVE(I) « xsvm 

the following code replaced statement 299 , 

299 CONTINUE 

IF(XVALVE(I).NE.O.) GO TO 311 

and the following was inserted after statement 400. 

XSV(I) - XVALVEtl) 

The GENFIX mods made several small general changes to the 
program. The XACTNG common block was corrected in both TOLA and 
ACTNG. In TOLA, the size was reduced to reflect the removal of 


PGA IT in 

the 

REST correction set 

, and in 

ACTNG the 

name 

was 

corrected 

from ACTNG (an error 

in REST) 

to XACTNG. 

Two 

new 

elements. 

NIN 

and TIMEL, were added 

for later 

use. In 

subroutine 


EXE, the variable NCASE was made available by changing the third 
continuation line of the DIRC0M common declaration to the following, 

* 0MA3 » INDVPC » DNAA ( 7), NCASE 
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and NCASE was initialized to be blank. The upper limit on the 35 
loop was changed from *1036 to 4059 to reflect the correct size of 
the DIRCOM common block. A rewind of unit 7 was added after the 
read from 7 to prepare the unit to receive new restart information. 
In subroutine MIMIN, the 45 loop was moved to below statement 205. 

The DELTFXX mods represented another attempt to resolve the 
control limit force reduction. New variables NIN and TIMEL were 
initialized with a DATA statement to zero in both ALGEAR1 and ACTNG. 
In subroutine ALGEAR1, the following code was inserted as the first 
executable statements, 

A F ( NIN* EQ* 0) TIMEL - TINE 
NIN ■ 1 

DELT - TIME - TIMEL 
TIMEL - TIME 

and the three lines at the top of the 274 loop were removed. In 
ACTNG, the 2nd through 4th executable statements were replaced with 
code identical to that above. 

The M0D282 correction set finalized solution of the control 
limit force problem. The common block XALGEA was expanded in both 
TOLA and LGEAR1 to include NIN and TIMEL. The READ and WRITE 
statements to unit 7 in EXE were altered to transfer 11081 words. 
In both ALGEAR1 and ACTNG, the three statements beginning with 
statement 159 were replaced with the following. 

159 IF(SD1(1»I)*LT*0*) GO TO 471 
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The MOD296 correction set changed the active code. In 
subroutine ALGEAR1 , the statement above statement 112 was changed to 
the following, 

IF(IM0DE(I).EQ.0.AND.S<1,I>.EQ.0. ) 112,113 

and the test on IMODE above statement 19 was removed. In subroutine 
ACTNG, the test on IMODE below statement 108 was changed as follows. 

IF(S<1»I>.GT.0..0R.IH0DE(I).EQ.1> GO TO 113 

The REST1 mods corrected a problem with the program restart. 
The common block XAUTS was expanded in TOLA and AUTS to accommodate 
three new variables, DELTS, ERROR, and IPR. The size of the data 
array transferred to or from TAPE7 in EXE was increased by three 
words to 11084. 

The primary purpose of the MOD329 correction set was to 
rearrange some logic flow in the active code. Additionally, the 
AMIN1 evaluation in subroutine MIMIN which had been moved by HTTRY 
was restored to its original position. In subroutine ALGEAR1 , the 
definition of 19 and subsequent call to INTEG were moved to inside 
the 28 loop. The definition of 13 and the subsequent call to INTEG 
were removed from the 28 loop and the following code was inserted 


after statement 21 . 
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DPI ( I ) - {-00m+QSVim-QSV3{I) + {AREAllI) - APINT(I)) 
1 *SD1C1#I))*BETA/VQLLTCII 
I F (S ( 1 > I > «NE« 0.*0R»AIC(I)»NE.1»1 GO TO 64 
DPI ( I ) » 0. 

64 CONTINUE 

13 - I ♦ 3+NSTRUT 

CALL INTEG(LA(I3),DP1< I)) 


The preexisting definition of DPI was removed and the following 
statement was added just inside the 28 loop 


IFdHODEf D.EO.O) GO TO 28 


T n subroutine SDFLGP, the following statement was added after the 
call to UPDAT for QSVCU. 

IFdMODEd).EQ«0) GO TO 6 

The MOD351 mods simply added the following statements above 
statement 64 in ALGEAR1. 

PGAlTldl * PGAIL(I) 

PGA1TII) « PGAII(I) 

Following the addition of 4CT new integration variables by- 
XMAFIX, it was necessary to increase the hard-wired maximum limit of- 
such variables from 90 to 100. This was accomplished with the 
MOD 1029 correction set. In program TOLA, the size of the UPDCAL 


common- block was increased from 18T to 201 , and the XMIMIN common 



100 


block was Increased from 908 to 1008. The P and Y arrays were each 


increased in 

size 

from 

90 

to 

100 in common 

block 

UPDCAL in 

subroutines 

EXE, 

INUPD 

, LNUPD, 

INPUZ, INTEG, 

UPDAT, 

MIMIN, and 

LGDET . In 

EXE, 

the 

size 

of 

the data block 

of 

information 


transferred to and from TAPE7 was increased from 11084 to 11204. In 
subroutine INUPD, both the test on NUM+N and the FORMAT were 
modified to reflect the new maximum limit. In subroutine INPUZ, the 
upper limit on the loop was increased to 100. Finally, in 

subroutine MIMIN the DIMENSION statement for YMAX was changed as 
follows. 

DIMENSION YNAX(100)>Y0{100)#P0tl00)*S(100)»YP(100J*Yl(100)* 
1 Z( 100 )»XK<100#3) 

The MOD1040 correction set corrected a problem with the pitch 
autopilot by inserting the following statement below statement 93 in 
subroutine AUTS. 

0ELQI - 0ELQ0E 

Since it is the variable H and not HT which represents the 
integration step size, a change was made to MIMIN by the MODMIM 
correction set to enhance the program output. The second write of 
HT was changed as follows. 

WRITE (6*701 ) HT#H 

701 FORHATC* 1NTEG RTN. HT « *#E1S.8>* H ■ *,S15.8) 
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A units problem in the active code was corrected by M0D1048. 
In both ALGEAR1 and ACTNG the value of the stroke in statement 4*156 
was converted from feet to inches by multiplying by 12. 

The MOD1 103 correction set changed the LGEAR1 code to allow for 
a special feature of the F4 gear design. The following new code was 
added after the test on IL. 


C MODIFICATION TO ACCOMODATE SECONDARY PISTON OF FA MAIN GEAR 
I F (S ( 1, I ) • LE*0« ) GO TO 59 
I F ( S ( 1, I).GE.SBm-<S2T(I)-S2<l,I> >) 83,8 5 
C SECONDARY PISTON IN CONTACT WITH ORIFICE TUBE 

83 IF{SD1(1,I)+1.E-4.GE.S2D1(1,IJ) 84,85 

84 S2D1 (1,1) • SD1(1, I ) 

S2D2( 1, I) » SD2( 1, I ) 

GO TO 60 

85 CONTINUE 


A method for slowly and continuously varying the aerodynamic 
coefficients C A q and C N gWas introduced with the AERAT correction 
set. Two new common blocks AEROCO and XAERO of lengths 8 and 2, 


respectively, were added to program TOLA. In EXE, the length of the 


restart data block transferred to and from TAPE7 was increased from 
11204 to 11214. A call to AER04 was added to subroutine 0PT1 below 


statement 621 , and the following new subroutine was added after 

0PT1 . 

SUBROUTINE AER04 
COMMON/ DIRCOH/DMK 2 ),X 
C0MM0N/TABC0M/L0CS (115),ST(115) 

COMMON/TABDIR /TABLE (800) 

COMMON/ AEROCO/ RTABlOf 2 ),RTAB80(2),LTAB10(Z),LTAB80(Z) 
COMMON/ XAERO/NIN,TI MEL 
REAL LTAB10,LTAB80 
DATA TIMEL,NIN/0.,0/ 

OATA RTAB10,RTAB80,LTAB10,LTAB80/8*0./ 

IF(NIN.EQ.O) TIMEL - X 
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NIN • 1 

DELT - X - TIMEL 
TIMEL - X 
IN01 ■ LQCS ( 45 ) 

IND2 » LOCS( 114 ) 

ATAB11 > TABLE ( IN01) 

ATAB12 ■ TABLEUNDl+l) 

ATAB81 » TABLE t IND2 ) 

ATAB82 « TABLE t IND2+1 ) 

ATAB11 ■ ATAB11 ♦ RTABlOt 1 ) *OELT 
ATAB12 » ATAB12 ♦ RTAB 10 ( 2 )*DELT 
ATAB81 » ATAB81 ♦ RTAB80( D+DELT 
ATAB82 ■ ATAB82 ♦ RTAB80( 2 )*DELT 

IF(RTAB10(1).GT.0..AND.ATAB11.GE«LTAB10(1)) GO TO 40 
IF(RTAB10(1).LT.O..AHD.ATAB11.LE.LTAB10(1) ) GO TO 40 
10 IF(RTAB10t2>*GT«0« . AND. ATAB12.GE .LTAB10 ( 2 ) ) GO TO 50 
IFCRTAB10(2).LT.0..AND.ATAB12.LE.LTAB10<2) 1 GO TO 50 
20 IF(RTAB80(1)*6T*0« • AND.ATAB81 .GE.LT AB80( 1 ) ) GO TO 60 
1F(RTAB80(1).LT«0..AND.ATAB81.L£.LTAB80<1)) GO TO 60 
30 1F(RTAB80(2).GT.0..AND.ATAB82.GE.LTA880(2)) GO TO 70 
IF(RTAB80(2).LT«0.. AND •ATAB82«LE«LTAB80(2)) GO TO 70 
GO TO 80 

40 ATAB11 « LTABlOd ) 

RTAB10(1) ■ 0. 

GO TO 10 

50 ATAB12 « LTAB10 ( 2 ) 

RTABlOt 2) « 0. 

GO TO 20 

60 ATAB81 • LTAB80 ( 1 ) 

RTAB80C1) • 0. 

GO TO 30 

70 ATAB82 - LTAB80(2) 

RTAB80 (2 > • 0. 

80 TABLEtIHDl) » ATAB11 
TABLE ( 1ND1+1 ) « ATAB12 
TABLE II N.D21 _s. ATAB81 
TABLEt IN02+1) « ATAB82 
RETURN 
END 

In subroutine READ the following code was inserted after statement 


19 , 


IFCSYM.EQ.6HRTAB10) 
IFtSYM. EQ.6HRTAB80 ) 
IFtSYM. EQ.6HLTAB10) 
IF<SYM.EQ.6HLTAB80> 


GO TO 905 
GO TO 905 
GO TO 905 
GO TO 905 
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and the following statements were added below statement 810. 

905 CALL AEROIN ( SYM,RA ) 

60 TO 100 

The following new subroutine was added after subroutine READ. 


SUBROUTINE AEROINC SYM, RA ) 

DIMENSION RA(55) 

COMMON /AER0C0/DATAX( 8) 

DATA DATAX/8*0. / 

CALL LINES(l) 

WRITE (6, 1 ) SYM, RA 

1 F0RMAT(18X,A6,5X,55A1) 

2 F0RMAT(*0ERR0R. ILLEGAL CHARACTER IN NUMERIC FIELD** 1R1,2H**/ ) 
IF(SYM.EJ.6HRTAB10> INDEX ■ 1 

IFISYM.E1.6HRTAB80) INDEX - 3 
IF ( SYM. EQ.6HLTAB10 ) INOEX » 5 
IF ( SYM . EQ.6HLTAB80 ) INDEX - 7 
NUMEXP ■ 0 
NEXP * 0 

::;p - o 
HL • 0 
NR « 0 
NUML - 0 
NUMR • 0 
ISIGN « 0 
JSIGN - 0 
LEFT - 1 
DO 210 1-1,56 
IF ( I .EQ. 56 ) GO TO 140 
IF (RA ( I ) .EQ.1H ) GO TO 210 
IF ( RAC I ) . EQ.1H, ) GO TO 140 
IF(RA(I).EQ.1H.) GO TO 170 
IF(RACI) . EQ.1HE ) GO TO 180 
IF(RACI).EQ.IH-) GO TO 200 
NUM > SHIFT (RA(I),6) 

NUM • NUM • AND *000000000000000000778 
IFINUH.GT.36) GO TO 130 
IFCNUM.LT .27 ) GO TO 130 
NUM - NUM - 27 
IF(IEXP.EQ.l) GO TO 190 
IFCLEFT.GT.O) NUML ■ 10*NUHL ♦ NUM 
IF(LEFT.GT.O) NL » NL ♦ 1 



IFUEFT.LT. 0) NUMR » 10+NUMR + NUM 
IFUEFT.LT. 0) NR ■ NR ♦ 1 
GO TO 210 
130 CALL LINES (3 ) 

WRITE ( 6» 2 ) RA ( 1 1 
GO TO 210 

140 IF(NL.EQ.O.ANO.NR.EQ.O) GO TO 210 
IF(NR.EQ.O) GO TO 160 

X » FLOAT (NUML) ♦ FLOAT < NUMR >/( 10. > **NR 
IF(JSIGN.EQ.l) NUMEXP - -NUMEXP 
I F ( IEXP.EQ.l) X • X*(10.)**NUHEXP 
IF(ISIGN.EQ.l) X - -X 
150 OATAX ( INDEX ) * X 
NUML ■ 0 
NUMR - 0 
NL - 0 
NR - 0 
LEFT « 1 
ISIGN * 0 
J SIGN ■ 0 
IEXP - 0 
NEXP « 0 
NUMEXP • 0 
INDEX « INDEX ♦ 1 
GO TO 210 
160 X - NUML 

IF (JSIGN.EQ.l) NUMEXP • -NUMEXP 
IF ( IEXP.EQ.l ) X « X*(10.»**NUMEXP 
IF< ISIGN. EQ.l) X - -X 
GO TO 150 
170 LEFT • -1 
GO TO 210 
180 IEXP - 1 
GO TO 210 

190 NUMEXP » 10*NUMEXP ♦ NUM 
NEXP * NEXP ♦ 1 
GO TO 210 

200 IF ( IEXP. EO.O ) ISIGN » 1 
IF( IEXP.NE.O) JSIGN - 1 
210 CONTINUE 
RETURN 
END 
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The MOD2056 correction set corrected two problems with the 
program. The DATA statement for initializing the AEROCO common 
block was moved from subroutine AEROIN to program TOLA. In 
- subroutine ACTINIT, the EQUIVALENCE statement for GREFF was 
corrected by replacing DM15 ( 16) with DM5(16). The size of the 
ACTDIR common block was increased from 75 to 77 and the variables 
REDSLP and DSTOP were added to the list of active input variables. 

The MPD2075 correction set remedied a sign problem with the 
strut force. In subroutine ALGEAR1, the statement label 159 was 
replaced with the following code. 

159 S/GX « 0. 

IF(SD1(1*I).EQ.0.) GO TO 471 
SIGX • SOI ( 1> I ) / ABS (SDK l; I ) ) 

The final continuation line in the definition of FORSST was replaced 
with the following. 

1 ♦ CFF0R( I ) )*SIGX*DMTANH< I ) ♦ FSTOP(I)) 

Identical changes were made in the ACTNG routine. 

During conduct of the experimental program reported in 
reference 9, it became apparent that the original control philosophy 
(see reference 10) was not adequate to control the gear during more 
* realistic landing simulations as opposed to restrained vertical drop 
testing. For example, if the airplane rebounded from the initial 
touchdown impact and the gear shock strut fully extended, the 
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original control laws would permit the control to add fluid to the 
strut and result in the development of excessive strut pressure. 
Consequently the control laws were modified to deactivate the 
control if the gear should become fully extended. As a result the 
logic and equations programmed in the active gear, flexible airframe 
takeoff and landing analysis computer program had to be modified to 
control the servovalve in order to return the strut and servovalve 
parameters to initial conditions to accommodate subsequent impacts. 
The M0D2203 and MOD2235 correction sets incoporated the new logic 
into the program. The size of the XALGEA and XACTNG common blocks 
were increased to provide for several logic control flags and the 
size of the restart common block was increased to 11364. The 
following code replaced the definition of ISTROK below statement 
500 . 

287 


289 

227 

220 

221 

222 


IF(Sd*I).GT.ESd) ) 287* 289 

ISTROK d ) “1 

ICU(I)«0 

IQCUt I ) *0 

IXS ( I )»0 

THE FOLLOWING LOGIC RETURNS THE GEARS* DUR ING REBOUND* TO INITIAL 
CONDITIONS IN THE EVENT THE GEAR CONTACTS THE SURFACE BEFORE 
THE LOGIC BETWEEN STATEMENTS 226 AND 421 IS FULLY EFFECTIVE 
IF d STROK d) .EQ.l.AND.DDELTAd) .LT .0.0)1 GO d)*l 
IF (IGE< I) .EQ.l.OR.ITRIPd ) . EQ. 1 ) 227* 297 
IF(IG0(I).EQ.0)G0 TO 226 

IF(DELTAd).GT.O.O.AND.WLFORd) .£<3.0.0)220*226 

IF( VC UM (I). GT .0. 00001. OR. VC UM(I).LT. -0.00001)221* 22 2 

Q0(D— VCUM(I)/DSTOP 

GO TO 226 

PGA2T (I )*PGA1I( I) 

Q0(I)*0.0 
IGOd )»0 

IFdGE(I).EQ.l) 290*297 


226 
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The code between statements 299 and 400 was replaced with the 
following. 


312 IF(IC0SV(I).NE. 1)313*314 

.314 IF(XVALVE(I).NE.XBIAS(I))GO TO 311 
298 IF(IC0SV<I).EQ.1)GQ TO 311 

313 IF(PGA1T{I).GT.PGA1I(I)+2000.)292*293 
* 292 IF(IXSVL(I).EQ.1)G0 TO 311 

XSVDOT(I)«XSVDMN(I)*PERCNT(I) 

ZPASS « 1 1-1 

XVALVE(I)»XVAIVE<I)+XSVDMN(I)*DEIT*PERCNT(I) 
IF(XVALVE{I).LE. -0.13)300*303 

303 XSV(I)«XVALVE(I) 

GO TO 297 

300 XVALVE(I)— 0.13 
XSVDOT(I) *0.0 
IXS VL ( I ) * 1 
GO TO 294 

293 IF(PGA1T(I).LT .PGA 11(1 )-2QQ0. ) 295* 294 
295 IF(IXSVH(I).EQ.1)G0 TO 311 

XSVDOT(I)«XSVDMX(I)*PERCNT(I) 

I ASS(I)«2 

XVALVE ( I ) -XVALVE ( I ) +XS VDHX ( I )*DELT*PERCNT ( I ) 
IF(XVALVE(I).GE. 0.13)302*304 

304 XSV(I)«XVALVE(I) 

GO TO 297 

302 XVALVE ( I ) *0. 13 
IXSVHt I )«1 
•294 CONTINUE 

XSVDOT ( I ) »0. 0 
IC0SVCI)«1 

311 IF ( PGA2T (I).GT.PGA1I(I)+4000.0)316*315 

316 IF(QSV( I).LT.Q0(I).AND.IC0SV(I).EQ.1)317,318 

317 XSVOOT ( I ) *0.0 


XSV(I)-XVALVEd) 

GO TO 297 

318 XSVOOT (I)*XSVDHN(I )*PERCNT ( I ) 
XSV(I)*XVALVE(I) 

GO TO 297 
315 CONTINUE 

IF(NAC(I).EQ.1)G0 TO 307 
320 IF(IIX$VH(I).EQ.1)G0 TO 305 
XSVDOT (I) »XS VDNN ( I ) 

IPASS ( 1 1*3 


XVALVE(I)*XVALVE(I)+XSVDMN(I)+DELT 
IF(XVALVE(I).LE.XBIAS( I) ) 305 » 306 

306 XSV(I)«XVALVE(I) 

GO TO 297 

305 XVALVE(I)«XBIAS(I> 

XSVDOT ( I ) *0»0 
IIXSVH(I)«1 
GO TO 400 

307 IF(IIXSVL(I).EQ.1)G0 TO 308 

xsvooTcn-xsvoMxm 

IPASS ( I )*4 

X VALVE (I)»XVALVE(I)+XSVOHX(I)*DELT 
IFIXVALVE(I).GE.XBIAS(I)>308,309 
309 XSV(I)*XVALVE(I) 

GO TO 297 

308 XVALVE<n«XBlAS(I> 

XSVDOT ( I ) *0» 0 

I IXSVL ( I) *1 


The following new code was added near the call to LIMITS. 


DELTXK I)»0.0 
IC0SV(I)«0 
Q0(I)-0.0 
QSVCUl I)«0.0 

Qsvim-o.o 

QSV3 ( I ) »0 .0 
VCUH(I)«0.0 
V0L1T ( I ) ■ V0L1I ( X ) 
VOL 2T(I)*V0L 21(1) 
V0L3T ( I ) » V0L3I ( I ) 
ITRIP ( I )*1 
PGAITKI)-PGAII(I) 
PGA1T( I)-PGAll(I) 
PGA2T ( I ) *PGA1I ( I ) 
PGA3T ( I )«PGA1I ( I ) 
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The 5 lines of code beginning with the call to PHL0Z2 were replaced 


with the following. 

297 IFdTRIPI I).EQ. 1)430*421 

430 IFCyCUMaJ.G - L.0..QOODl.OR A VCW1in«lT.-Q,OOQQl)GO TO. 431. . 

Q0(I)-0.0 

ICU Cl )-l 
GO TO 440 

431 IF(VCUM(I).LT.-0.00001)G0 TO 432 
Q0d)«- VCUMdWDSTOP 

GO TO 440 

432 Q0d>— VCUM(I)/DSTOP 

440 IF(QSVCU( I). GT. 0.00001. OR. QS VCU d ). LT.-O. 00001 ) GO TO 433 
QSVd)»0.0 
IQCUd ) *1 
GO TO 420 

433 IFJQSVCUf IJ.LT.-O.OOOODGO TO 434 
QSV (I )*-9S VCU ( I ) /OS TOP 

GO TO 42U 

434 QSVdl — QSVCU(I)/DSTOP 

420 IF(XSV(I) . GT. XBI AS d) + . 000001)422* 423 

422 IF(XSV(I).GT. 0. 0 )XSVDOT ( I ) »-XS V< I ) /OSTOP 
Tr ( XSV d ) • LT. 0.0) XSVDOTd)«XSVd) /OSTOP 

i. J TO 600 

423 IP(XSVd).LT.XBIASd)-.000001)424*425 

424 XSVDOT<U— XSV(I)/DSTOP 
GO TO 600 

425 XSVOOT < I ) *0. 0 
IXS(I)«1 

600 IFiXMAld ).6T. 0.00001 .OR .XMA1 (I ). LT.-O. 00001 )60 TO 601 
XNA10T ( I ) *0.0 

IAld)«l 
GO TO 602 

601 XMAlDTd) — XMA1CD/0ST0P 

602 IF(XHA2(I) .GT .0.00001 .OR .XMA2 (I ) • LT .-0. 00001 )G0 TO 603. 
XNA2DT ( 1 ) *0.0 

IA2fI)«l 
GO TO 604 

603 XMA2DTd)«-XMA2d)/DST0P 

604 IF(XMA3d).GT. 0.00001 .OR .XMA3 (I ) . LT .-0. 00001 )G0 TO 605 
XNA3DT ( I ) *0.0 

IA3d)*l 
GO TO 606 

605 XMA 3DT ( I ) ■— XMAS ( 1)/DST0P 

606 ' IF(XMA4(I).GT. 0.00001 .OR .XMA4 d ) • LT .-0. 00001 ) GO TO 607 

XMA4DT ( I ) *0.0 
IA4( I) *1 
GO TO 608 

607 XNA4DTd> — XMA4(I)/DST0P 

608 IF(XHA6(I).GT. 0.00001 .OR .XMA6 (I ) . LT .-0. 00001 )G0 TO 609 
XNA6DT ( I ) *0.0 

IA6 ( I ) *1 
GO TO 610 

609 XMA6DTC I) ■-XMA6d ) /OSTOP 
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610 IF(XMA7<I).GT.O. 00001 . OR .XMA7 ( I ) «LT .-0. 00001)60 TO 611 
XHA7DT ( I )*0.0 

1 I A7( I ) *1 

GO TO 612 

611 XMA7DT(I)«— XHA7(I)/D$T0P 

612 IF(XHA9(I).GT. 0.00001 .OR .XMA9 (I) . LT .-0. 00001 )G0 TO 613 
XMA9DTCD-0.0 

IA9(I)-1 
GO TO 614 

613 XMA9DT( I ) *-XMA9( D/OSTOP 

614 IF(XMA10(I ).GT. 0.00001 .OR .XMAIO(I) . LT .-0. 00001 ) GO TO 615 
XMA10D ( I ) *0. 0 

1 A10 ( I ) *1 
GO TO 421 

615 XMA10D<I)«- XMAIOIIJ/DSTOP 

C THESE SWITCHES ARE EITHER ZERO OR ONE 
421 IF < ICU ( I ) + IOCU d ) + IXS d ) + IAl d ) + I A2d ) + I A3d ) + IA4d ) + I A6( I ) 
1 +IA7(I)+IA9(I)+IA10(I) .EQ. 11 ) ISTROK ( I ) *0 

I2»2*I+NSTRUT-1 


The test on HMM(I) below the definition of VELDEC(I) was replaced 
with the following code. 


IF(IGE(I).EQ.O)GO TO 131 
WLFOR(I)«WLFORR 
INDEACT (I )«2 
EPSILOi I) *EPSROL( I ) 

GO TO 451 

131 IF(S(l>I).LE.ES(inGO TO 451 
IF(HMM(1)«EQ.0)GQ TO 451 
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The following test was inserted before statement 452, 


IF(S(1»I).LE.ES(I).AND.ITRIP(I)«EQ.1)G0 TO 458 


and the following code was added after the definition of PI (I). 


458 P1(I)«PGA1T(I)/144. 

459 VOLANT ( I)»VOLANT ( I ) +QSVN ( I )*DELT”QPUNPS C I )*DELT” 


The first line of the call to FL0ZE2 was replaced with the 
following. Mi 


I F (S <1> I ). lE. ES ( I). AND. I TRIP ( I ).EQ. 1)462,410 
410 CALL LIMITS(XSVm,XSVDOTU)>XSVHAX(I),XSVMIN(I>) 

CALL FL0ZE2(PS(I)#PR(I)*P1(I)»XLPSV1(I)#XLPSV3(I);RCLSV(I)>DSV(I)# 


T^e following initializations were added below statement 50, 


IGE (I ) *0 
ITRIP( I )*0 


and the following tests were inserted above statement 55. 

I F ( I HOD E ( I)«EQ.0)60 TO 55 
IF (I STROK (I ).EQ«1 ) IGE ( IJ?l 

The following calls were inserted below the call to INTEG for 
XSVQOT(I). 


CALL LIMITS(XSV(I);XSVDOr(I)jXSVHAX(I),XSVHIN(I)) 
CALL LIMITS(XSVOOTCI)»XSVOD(I)*XSVOMX(I)#XSVDMN(I)) 
CALL LIHITS(XSVDD(I)*XSVDDD(I ) * XDDMAX (I)*XDDMIN(I)) 


Similar modifications were required in the ACTING subroutine. 
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The MOD2235 correction set corrected an error in the MOD2203 
logic by replacing the definition of IGO(I) below statement 222 with 
the following. 

IF<i)ELTA( D.GT.O. ) IGO ( I ) • 0 
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3. USER INFORMATION 

In order to exercise the new program options, the user needs to 
be aware of the new data preparation requirements and operating 
instructions. These two areas are discussed below. 

3.1 Data Preparation - The overall input data format is changed by 
the introduction of a new data card which must precede all other 
data. The first card of each data deck controls the restart option 
and must contain a single integer in the first card column. This 
card must be present even if the restart capability is not selected, 
allowed values of the integer restart flag are presented below: 

Value Action 

0 Reject the restart option - This run will read all 
input data from cards and a subsequent restart will 
not be possible. 

1 This run will read all input data from cards and will 
create a file such that the job may be restarted from 
any point at which data is staged. 

2 This run is a restart of an earlier run. All program 
variables will be initialized from the restart file 
to the values corresponding to the desired stage. 
Subsequent data cards on the input file are limited 
to stage data only. This run may not be restarted at 


subsequent data stages. 
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3 This run is the same as for a value of 2 except this 

run will create a file such 'that the job may be 
restarted again from any subsequent point at which 
data is staged. 

Active control simulations are run simply by inserting active 
control variables into the input file and setting the landing gear 
mode indicator switch (INDLG) to -3. The input variables are 
described in Table 1 and a sample listing of these inputs are given 
in Figure 3. The active control variable list must be preceded by 
the word ACTIVE starting in column 1. All following variables are 
entered according to the same format: 

Column Number 

1-6 VARIABLE NAME 

8-10 DATA TYPE - DEC or blank = REAL 

INT = INTEGER 

12-66 DATA VALUES, LEFT JUSTIFIED, SEPARATED BY 

COMMAS, NO EMBEDDED BLANKS 

Unlike other program data, the integer counter for continuation of 
array data must be right justified in column 68 instead of left 
justified in column 67. The arrays PINM, PINN, STROM, and STRON are 
only required if KAPT =2. If included, these arrays must be placed 
in the active variable list and are each allowed a maximum length of 
30. The independent variable (strut stroke) 
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ORKsJNAL P:ife* & 

1 OF POOR QUALITY 

CTCASF TAR 
ATAP01 2 

ATAP02 2 

ATAP05 2 

ATAPCf 2 

ATAPOP 2 

ATAPIO ? 

ATAB11 2 

ATAR12 2 

ATARI* 2 

ATARI* 2 

AT A P ? 1 2 

ATAR52 2 

ATAB53 2 

AT A R 5 A 2 

«tar?7 2 

ATA°5° 2 

ATAPPC 2 

TTAROl 207 

CTAR02 207 

0TAP03 11 

f T ARP* 11 

CT A R 02 99 

FTAP03 25 

TTAP10 ai 

VTAR01 *5 

VTAR02 5 

VTAB03 * 

VTAROA 5 

VTAPO* * 

TP A 

ST<* ASF 

pcm RCO AF A ACTIVF GEAP PPOC-PAM 

nc asf n rr? ilppgoi 

° C M RCO AINTFGP ATION INFORMATION 

TVAPPH 0 

t MAX ,31 

AMINFP .00005 

PPTMIN 0, 

AMAXFP .001 

r'PITS .01 

RP INT .01 

PEM RCO AnATA PEOD FOR SOF-? 

AMASS 1115.7 

M0C7F R.237A3 

THTPD 7.1 

GAMTp -1.1A576 

VG77F ’50.0 


Figure 3-a. Full Input Deck 
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OT77P 


0. 

YT77F 


0. 

OUMGP 


0. 

TNHAPC 


1 

TNPADP 


1 

TwnppA 


1 

T N P P | A 


1 

T*JP AP H 


1 

TN'Pr-PT 


1 

TNPWGT 


0 

OCM 

Ppp 

6VEHICLF PHYSICAL PPOP. DATA 

TMnvPC 


T 

ypprf 


0. 

vtaboi 


2»C.#0.#5000.»0. 

VTAP02 


2#0. #24873. #1200. #24873. 

VTAP03 


3# 0.# 14451 6. #1200. #144516. 

vta«oa 


2 » 0. # 154 897. #1 200. #1 54807. 

TNPY75 


1 

*/T A 906 


2, C. #3361. #1200. #3361. 

PpK 

RPP 

4AERCDYNAKIC TNPUT DATA 

TMpAFP 


1 

APFFF 


547.87 

rUPFF 


16.042 

n?PFP 


38.667 

TNPA01 


1 

AT AROl 


-0.000709,-0.000709 

TNPAO? 


1 

ATAPO? 


0.000423,0. 000423 

TN^APf 


1 

ATAP05 


-0.001027,-0.001027 

TMPA06 


1 

ATAPO 6 


0.000136,0.000136 

TNPAOP 


0 

AT.APOP 


0 . ,0 • 

TNP A 1 0 


1 

ATAP10 


.379202# .379202 

TNPAU 


1 

AT API 1 


.063627, .063627 

T^P AT ? 


1 

ATARI? 


-.00018, -.00018 

TNn Alf? 


1 

AT APT? 


.0016, .0016 

T N P A1 6 


1 

AT ART 6 


-.0002#-. 000? 

TNpAfl 


1 

ATAR5T 


-.083516,-. 083516 

tmha?? 


1 

ATAR*? 


-.005969 *-,C05 Q 69 

TNPA53 


1 


Figure 3-a. Cont'd 
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ATAR53 
TN0A56 
A T A R 5 6 
INnA57 
ATAB57 
TNPAfO 
ATARRQ 
TNOARC 
ATARPO 

PCM 

TNPTFF 
TNnT$ n 
TT10V 

TT10W 

TTAR1P 

ttario 

TTAR1C 

ttario 

TTARIO 

TTAP10 

TTARIO 

TTARJO 

PCM 

ACTIVF 

AMHH 

CTPQN 

stpon 

*TPPN 

PTMN 

PTNM 

PTNN 

RTNN 

CTPOM 

CTPflM 

STO0M 

^ TP OM 

OTNM 

PIN** 

°TNM 

PTNM 

APFA1 

ARFA2 

AOFA3 

ARFMO 

APFO? 

RCTA 

RIMU 

RIIMU 

OOM0C 


ORIGINAL p A; : f 

nc pnnR QUALITY 


-. 000216#-. 0C0216 
1 

-.010317#-. 010317 
1 

-.000005#-. C00005 
0 

• 0# • 0 
1 

0.141245,0.141245 

ROD 3FNGINF THRUST TATA 
3 
1 
6 

R 

— 2.#— l.#0.#l.#2. 


0 •# .05# .1# .15# .2# .25 6 

0,#0.»C. #470. #17600. 12 

0 .# 0 .# 0 .» 300 .# 17300 . 17 

0.#0.#0. #220. #17200. 22 

0,#0.#0, #160. #17080, 27 

0.#0.»0.#C. #17060. 32 

0.#0.#0.#0. #17100. 37 

RCP 3LANDING GFAR DATA 

.00016 

0.0# .1# .16333# .26667#. 35# .43333# .51667# .6# .68333# .76667 
.85# .03333# 1.01667# 1.1 #1.1833 3# 1.26667# 1.35# 1.43333 11 

1. 51 667# 1.6, 1.683 33# 1. 76667# 1 . 8 5# 1 . 03333# 2 . 0 19 

.002 31#. 00231# .00231# .00204# . 00242# .003# .00330# .00352 
.00396# .00435# .00454# .00473# . 00492# .00511# .00511# .00511 9 
.00531# .00531 #.0055# .00569# .00601# .00627, .00646# .00665 17 
.00665 25 

O.C# .0660*# .10771 #.1453 8# .191 04#. 23271# .27438#. 31604 
.35771 #.3993 8# .44104#. 4 8271#. 52438# .56604# .60771# .6493? g 
. 691 04#.73271#. 77438# .81604#. 85771, .8993 8# .94104#. 9827117 
1.02438, 1.06604# 1.1 0771, 1.14Q38, 1.32333 25 

.00603# ,00595# .00572# .0055# .00518# .00492# .00458# .00424 
.0039, .00373, .00356# .00366# .00375# .00409, .00443# .0046 9 

.00486# .00511# .00528# .00554# . 00571 # .005 8P# . 00614# . 00631 17 
. 00648#. 00665#. 00674#. 00682#. 006*2 25 


.08705# .1134# .1134 
.12962# .16082# .16092 
.01651# .00819, .00819 
.00684, ,00684# .00684 
.000021# .000668# .000668 
1 4400000. 

.15# .15# .15 
.15# .15# .15 

.9#. 9, .o 


Figure 3-a. Cont’d 



cphcif 

cncv 

C03 

rFFOR 

nFLT 

PTHTA 

n<:v 

FP5TLP 

FP5RPL 

F°SSIP 

CT4SV 

FWPRK 

GANAH 

GMR 

KART 

p M P y M 

PAT* 

®G AMAC 

PG Al AC 

PG AIT 

PGA ?T 

PGA3T 

PF»CNT 

QPU* p S 

RCLSV 

OHPH 

TAUF 

jr\ 

TC? 

TC3 
TC A 

VPIACT 

volant 

voilT 

VOL?T 

VOL3T 

VC 

VC1 

VFV 

VS VI 

VSV3 

VLFOP 

VLPORP 

VPTAS 

ypr>MAY 

ynnMTM 

yy a 

ypp 

y*sv 
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1. 

1 .1P75>1.1875>1.1875 
200 • > 200 • > 200 • 

2000. >2000. >2000. 

0. 

.436 

.9>.9>.9 

52. 36>52.36>52. 36 

0. 

TNT 2>2> 2 

0. 

2116.8 

432000.> 432000. >432000. 

ft .>o.>o. 

16272. >28800. >28800. 

16272. >2*800. >28800. 

16272. >2880C. >28800. 

1. 66115> 1. 6611 5> 1.6611? 
0.05793>0.05793>0.0?7O3 
4.75E-5>4.75E-5>4.75F-5 
1 .626 
0.1 
.281 
.141 
.001 
.0001 

1.33333>1.33333>1. 33333 
.26667> .26667> .26667 
.11733>.11507>. 11507 
. 28923> .26239> .2623° 
0.>0*>0. 

1263. 

251.3 

655.5 

3.48 

3.48 

500. >500. >500. 

0 . > 0. > 0. 

-.G00227>-.000171>-. 000171 
1.0F20>1.0E20>1.0F2C 
-1.0F20>-1.0E20>-1.0F?0 
• 04> • 04> .04 
60*>60.>60. 
•0025>.0025>.0025 


.o> .9> .9 

• 62> .62 >.62 
• 6 > . 6 > .6 
50. >50. >50. 
.0001 


Figure 3-a. Cont'd 
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ORIGINAL PAGE 
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VLPSVl 

0**0. *0. 

VI 


yscom 

1 .54 667, 1.15 667, 1.1 5 6 67 

Y^TMP 

-• .02083* .02083* .02083 

YCUOMK' 

-30. 1*-30.1*-?0.1 

ygvomy 

30.1*30.1*30.1 

ypvmav 

.l*.l*.l 

YSV^TK' 

-.l*-.l*-.l 

7FTAC1 

5.1 

7 FT AC? 

.1 

TMnnp 

IMT 0*1*1 

FNP ACT 


M^TPUT 

3 

MASE 

4. 2 8 971 *13. 98819*1 3. 98819 

py 

19. 57503* -4. 34308*-*. 34308 

PY 

0. *-8.95333*8.05333 

p 7 

1 .40617*1.41425*1.41425 

THFTAH 

P. *4. 29137*4. 29137 

FPHFG 

0.0 

CHNpM 

23228.5 

ctucim 

69883. P 

CTHPFM 

3180.1 

rpnjjPM 

6581.4 

CPNFPM 

.1683 

DFLPPM 

.4173 

vpowpm 

0.0 

AW 

.08705* .11020* .11020 

PGP 

0. 

MTTPFP 

?.*1.*1. 

pycpp 

.73333*1.21875*1.21875 

w 

.46042* .9375* .9375 

PELTAM 

.21666*. 36875*. 36875 

PL T 

1 .5F+4 

TFP 

1 

AT 

1 . 06 1 48 E+5* 1. 9454 2E +5* 1.945421 

P T 

1.3*1. 2*1. 2 

SLFN1 

1.04037, .78723*. 78723 

SLEN? 

3.0122*3.095*3.095 

TNPATM 

1 

GAMA 

1 .06 

cnNF 

64P3.9 

GTWp 

32406.4 

GTHPFF 

534.12 

CFOLIP 

1837.1 

rnNFPT 

.1683 

PEL PVP 

.4173 

PTIPF 

1 .95208 

ftamay 

25. 

ftamtn 

-25. 
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TNPMV* 

KANVF 
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TSTFP 

TRI'DP 

TNWPUP 

OPTFTA 
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PPFT 

PYP 

VOPWP 

YPPFS 

FTAP02 

P T A P 0 3 

FTAPO? 

M0MPMT 

MB 

»F 

\>y 

P7PPP 
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A 

Tl 
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nsm a IM 
PTAB01 

CTABP1 
CTAPOl 
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CTAPOl 
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PTAPOl 

PTAPOl 

PTAPOl 

CTAPOl 

PTAPOl 

CTAPOl 

CTAPOl 

CTAPOl 
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30. 

o.c 

?0. 

P 

0 

0 

0 

0 

0 

1 

0.0 

0.0 

10. 

0.0 

0.0 

2*0»#0.*1.5E+5*0. 

11*0.* .0005* .03# .16* .06* . 3 2# • 1 2* .64# .1 5* .8 
•2#.8#.4#.72#»6#.52#.6#.?6#1.#.336,100.#.336 12 

•53703*P.01 Q *8,C19 

0. #0. #0 • 

6.0108*5.1525*5.1525 

0. 

16272. *28800. *28800. 

.09343# .22793* .22793 
.08705* .11020* .11020 
1 
1 

51 

.0* .066* .1# .108* .149*. 183# .191* .233* .267* .274# .316 


.35* .358* .399, .433* .441, .483* . 51 7* . 524* . 566* . 6* .608 .12 

,64Q* .683* .691, .733* . 767* . 774 # . 81 6 * . 8 f * .858*. 899*. 933 23 

.941# .983,1.017,1.024*1 .066*1.1*1.108*1.149*1,183 34 

1 .267* 1.323* 1. 351# 1.433* 1.517* 1.6*1. 6P3* 1.767* 2.0 43 

1.. 2. *3. *32. 3* 32. 3* 29. 1,2°. 1,29. 1,27. 4,27.4 52 

27.4, 28. 1*2 8. 1,2 8.1* 33. 9* 33. 0,33. 9* 44. 9, 4 4. 9* 44. 0,5 5. 4 62 
5 5.4 *55.4, 62. 1,62. 1*62. 1*79.2 *79. 2# 79. 2* 106. 2* 106. 2 73 

106.2* 124.7, 124. 7* 124. 7# 148.4,14 8. 4* 148. 4# 179. 5# 179.5 R3 
1 79.5,221.6*221.6*221 . 6, 221 . 6*221 .6, 221 . 6* 280. 5* 280. 5 92 

P 66. 3* 498. 6* 11 23 .9,1954.6,17950.5 101 

20Q0. #1690. *1690. *11 84., 773.* 773. *48 2. *366. *366.* 264. 106 

100.. 199. *155., 130. ,139., l?5. *133., 133. *141., 172., 172. lift 

231.. 290. , 290. , 34 2. * 451 . # 4 51 . * 5 55 .# 796 . , 795 ., 1054 . 127 

1463. *1463. *272*. *4756. * 475 6., 10320. #371 6 8., 371 6P. 137 

1223 81. *35591 84. *3559184., 3559184., 35591 84., 3559184. • 145 

35*5 9184. #0.*0.#0.*0.#0.#2090.*1690.#169C. #1184. 151 

773.* 773. * 482. * 366. * 366. # 264., 1 99. fioo., 16 6. *139. *139. iftl 
1 2 5. * 1 33., 133., 141. * 172. *172. #231. #290. *290., 34 2. *4 51. • 172 
4 51. *555., 795. *795. *1054., 146 3. *1463. *2725., 4756., 4756. 183 

10320.. 371 68. #371 68. *1223 81.# 35 591 84. # 35591 84.* 35 591 84. 193 

v 
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r TABC1 3559184., 35 5°184,,3f 5 91 84 . » 0 . , 0 . , 0 . , 0 . , C . 200 

TNPC02 1 

CTABO? .0, .066, .1, .108, .34°, .183, .191, .233, .267, .274, .316 

C TA Bp? .35, .3 5 8, .399, .433, .441*. 483,. 517, *524, .566*. 6, .608 12 

CTAnp? .649, .683, .691, .733, .767, .774, . 816, .85, . 858, . 899, .933 23 

- CTABC2 ,Q41* .983,1. 017*1. 024, 1.066,1. 1*1. 10P*3 .149,1.183 34 

r TAR02 1.267,1.323,1.351,1.433,3.517,1.6,1.683,1.767,2.0 43 

CTABp? 1 .,2. ,3. ,32. 3, 32. 3, 29. 1,20. 1,29. 1,27. 4, 27. 4 52 

* CT ABC? 27, 4, 28. 1, 28.1, 28.3, 33, 9, 33, 9, 33.9, 44. 9, 4 4 . 9, 44. 9, 55.4 62 

CT ABO? 55.4,55.4,62.1,62.1,62.1,79.2,79.2,79.2,106.2,106.2 73 

CTABC? 106.2,124.7,124.7,124.7,148.4,148.4,148.4,179.5,179.5 83 

<*TABO? 179.5,221.6,221.6,221 .6,221.6,221.6,221.6,280.5,280.5 92 

CTABO? 366.3,498.6,1121.9,1994.5,17950.5 101 

CTAB02 2090. ,1690. ,1690. ,1184. ,773. ,773. ,482. ,366. ,366. ,264. 106 

CTABO? 199., 199., If 5., 139., 139. ,125., 133., 133., 141., 172., 172. nfc 

CTABO? ?31. ,290. ,290. ,342. ,451., 451 . / 555. ,795. ,705. ,1054. 127 

CTAB02 1463. ,1463. ,2725. ,4756. ,4756. ,10320. ,37168. ,37168. 137 

C T A R C 2 1223 81., 3 5 591 84., 35 5 91 84., 3 55 91 84., 35 591 84., 35 593 84. 145 

rTABC? 3559184. , 0 . , C. , 0. , 0. ,0., 2090. ,16°0., 1690, ,1184. 151 

CTABC? 773., 773., 482., 366., 366., 264., 199., 199., 155., 139., 139. 161 


.CTABO? 125., 133., 133., 141 .,172., 172., 231., 290., 290. ,342. ,451. 172 
CTAP02 451., 555., 795., 795., 1054. ,1463. ,1463., 2725., 4756., 4756. 183 
CTABO? 10320., 371 68., 371 68., 122381. ,3559184., 35591 84., 3559184. 193 
'CTABO? 3559184. ,3559184., 3559184. ,0. ,0.,0.,0. ,0. 200 

INOCO? 1 

W52NDY 2 

-CTAB03 0.,. 1542,1. ,2. ,3. 

C T AB03 0.,0., 28. 3, 28. 3, 28. 3, 28. 3 6 

TNCCOA 1 

CTAB04 0 ,, .1542,1. ,2. ,3. 

CTAB04 0.,0., 28. 3, 28. 3, 28. 3, 28. 3 6 

*A*?? .0001, .0986, .0986 

F5 .02, .013, .013 

.15, .15, .15 
2. ,1 .323,1.323 

op M B C 0 4BLEXIBL8 AIRFPAMF DATA 

TNPFIX 0 

NMODF 5 

GMAC*! 22.68,2.88,14.28,5.88,10.02 

GPPFO 50.868,64.684,80.384,116.180,133.764 
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for the nose and main gears are stored in STRON and STROM, 
respectively. The dependent variable (metering pin area) for the 
nose and main gears are stored in PINN and PINM, respectively. The 
active variable list must be terminated with the word ENDACT, which 
also begins in card column 1. 

The INDLG switch is located at the beginning of the staging 
data section and follows the same format as outlined above. It is 
also recommended that the minimum integration interval (AMINER) and 
the maximum integration interval (AMAXER) be set to .00005 and .001 
respectively to permit accurate numerical integration during ground 
contact stages. These variables are located in the integration 
information section near the beginning of the data set. 

In order to specify time rates of change for the aerodynamic 

coefficients C. and C.. , four new symbols have been added to the 
"0 w 0 

program: RTAB10, RTAB80, LTAB10, and LTAB80. These symbols, unlike 
ATAB10 and ATAB80, should not be included in table size data but may 
appear anywhere else in the input deck. As with other aerodynamic 
tables, the new symbols have a size of two. The first data point is 
for full ground effect and the second is for no ground effect. The 
use of these symbols is illustrated by an example. 
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ATAB10 .379202, .379202 

ATAB80 . 141245, .141245 

• 

AINCRS BCD 1TIME 
STEST .005 

TRA 

STCASE 

RTAB10 -.01, -.01 

LTAB10 .36,. 36 

RTAB80 .005,. 005 

LTAB80 .15,. 15 


In this example, the initial values of C and C are .379202 

No Ao 

and .141245, respectively. At time t=.005, rates of change and 

limiting values for the parameters are specified. The value of 

(ATAB10) will decrease at a rate of .01 (RTAB10) until it has 

reached a value of .36 (LTAB10). At this time ( 1.9209 seconds after 

the stage) the rate of change will be set to zero and will 

remain at .36 until it is redefined by a new ATAB10 card or by new 

values of RTAB10 and LTAB10. Similarly, the value of C,. (ATAB80) 

Ao 
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will Increase at a rate of .005 until it has reached a value of .15 
(LTAB80) . At this time (1.751 seconds after the stage) the rate of 
change will be set to zero and will remain at .15 until it is 
redefined. 


3.2 Operating Instructions - The program resides as an UPDATE 
program library on an indirect access file named ACTOLA. The 
relocatable binaries are on a file named BTOLAR. The plot program 
source and binaries are on files NEWPLOT and NAPBN, respectively. 

The user is responsible for maintaining the files necessary for 
restart runs and for plotting the cumulative results of several 
restart runs. The program files of concern to the user are TAPE7, 
TAPE 16, and TAPE13. The TAPE7 file contains the restart data with 
one record for each restart generated (i.e., one record for each 
time data is staged). In subsequent runs, it is the responsibility 
of the user to correctly position TAPE7. The TAPE16 file also 
contains restart information, but contains a single record. The 
file TAPE 13 contains data for the plot postprocessor and contains a 
single record. The use, storage, and manipulation of these files is 
best illustrated by a set of example runs. 

Figure 4-a illustrates the simplest use of the FATOLA program. 
This run will execute the program without the restart option and no 
plots will be generated. 
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JOB , . . . 

USER,... 

CHARGE,... 

GET , BTOLAR/ UN=58 5 7 8 7N . 

MAP, OFF. 

BTOLAR. 

EOR 

Full data deck (similar to Figure 3-a) 

EOF 

Figure 4-a. Deck setup for simple execution of the program. 

JOB , . . . 

USER,... 

CHARGE , . . . 

GET , BTOLAR/ UN=58 5 78 7N . 

MAP, OFF. 

BTOLAR. 

GET,NAPBN/UN=585787N. 

ATTACH , LRCGOSF/UN=LIBRARY . 

REWIND, TAPE13. 

COPYEI , TAP El 3, TAPE 3 . 

RETURN, TAPE13. 

REWIND, TAPE3. 

LDSET , LIB=LRCGOSF . 

NAP BN. 

PLOT . VARIAN 
EOR 

Full data deck (similar to Figure 3-a) 

EOR 

Plot instructions 
EOF 

Figure 4-b. Deck setup for simple execution of the program 
with plotting. 
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JOB , . . . 

USER,... 

CHARGE,... 

GET , OLDPL=ACTOLA/ UN=585787N. 

UPDATE . 

FTN , I . 

REWIND, LGO. 

GET,OLDBIN=BTOLAR/UN=585787N. 

COPYL , OLDBIN , LGO , BTOLAR . 

MAP, OFF. 

BTOLAR. 

REPLACE, TAPE13=T134C. 

EOR 

UPDATE correction set 
EOR 

Full data deck (similar to Figure 3-a) 

EOF 

JOB , . • . 

USER, ... 

CHARGE , . . . 

GET,TAPE3=T134C. 

GET , NAPBN/ UN=58 5 78 7N . 

ATTACH, LRCGOSF/UN=LIBRARY . 

LDSET , LIB=LRCGOSF , MAP=SBEX/ OTT . 

NAPBN. 

PLOT . VARIAN 
EOR 

Plot instructions 
EOF. 

Figure 4-c. Decks for executing the program with corrections and 
plotting the results at a later time. 

JOB , . . . 

USER,... 

CHARGE,... 

GET , BTOLAR/ UN=585787N . 

MAP, OFF. 

BTOLAR. 

REPLACE, TAPE7=T74D. 

REPLACE , TAPE16=T164D. 

REPLACE, TAPE13=T134D. 

EXIT. 

REPLACE , TAPE7=T74DF . 

REPLACE , TAPE16=T164DF . 

REPLACE , TAPE13=T134DF . 

EOR 

Full data deck (similar to Figure 3-a with a restart flag of 1.) 
EOF 

Figure 4-d. Deck setup for an initialization run with 
the restart option. 
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JOB , . . . 

USER, . . . 

CHARGE,. . . 

GET,BTOLAR/UN=585787N. 

HAP, OFF. 

GET,TAPE16=T164DF. 

GET,TAPE7=T74DF. 

SKIPR,TAPE7,5. 

BTOLAR. 

REPLACE , TAPE7=T74E . 

REPLACE ,TAPE16=T164E . 

REPLACE, TAPE13=T134E. 

EXIT. 

REPLACE, TAPE7=T74EF. 

REPLACE, TAPE16=T164EF. 

REPLACE , TAPE13=T134EF . 

EOR 

Short data deck (similar to Figure 3-b with a restart flag of 3.) 
EOF 

Figure 4-e. Deck setup for restarting example from Figure 4-d 
at time = 0.60 sec. 

JOB , . . • 

USER,... 

CHARGE,... 

GET,NAPBN/UN=585787N. 

ATTACH , LRCGOS F / UN=LIBRARY . 

MAP, OFF. 

GET,T134DF. 

GET,T134E. 

COPYBR,T134DF,TAPE3. 

COPYBR , T134E , TAPE3 . 

REWIND, TAPE3. 

LDSET,LIB=LRCGOSF. 

NAPBN* 

PLOT . VARIAN 
EOR 

Plot instructions 
EOF 

Figure 4-f. Plotting cumulative results of restart runs. 



135 


When plots are desired, they can either be generated at the 
same time as the program is executed, or they can be generated at a 
later time after the user has examined the printed output. Figure 
4-b shows the deck setup for executing the program and generating 
plots at the same time. Figure 4-c contains the deck setups for 
executing the program with UPDATE modifications and plotting the 
output at a later time. 

When the restart option is selected, the first run is known as 
the initialization run and the first data card should contain a 1 in 
the first card column. The user should save the files TAPE7 and 
TAPE16, and if plots will be desired TAPE13. Figure 4-d contains 
the deck setup for an initialization run. Note that important files 
are saved if the program terminates normally, and these files are 
also saved if the program fails. Assume, as an example, the program 
fails at time = 0.65 seconds, using the data of Figure 3-a. An 
analysis of the program output suggests that if a smaller 
integration step were being used, the failure might have been 
avoided . 

To correct the problem, it is first necessary to determine the 
TAPE7 record structure. From our sample data or from the program 
output it can be determined that the first restart record was 
written at time = 0.005, the second was written at time = 0.02, etc. 
Thus, the record written at 



136 


0.60 was the sixth restart record generated. Figure 4-e illustrates 

a deck setup for restarting this run. Note that 5 records are 

skipped on TAPE7, positioning the file to the sixth record. Note 
also the following points: 

o It is not required to get TAPE13 before executing the program, 
o The permanent file names T164DF and T74DF correspond to the 
file names under which the files TAPE16 and TAPE7 were replaced 
(after the EXIT.) in Figure 4-d 

o Following execution, the restart and plot files are saved with 
new (unique) names. In subsequent runs, T74DF could be used to 
restart the program prior to time = 0.60 and T74E (or T74EF) 

could be used to restart the program after time = 0.60. 

Assume, to continue our example, the restart run terminates 
normally and we desire to plot the cumulative results of the two 
runs. Figure 4-f presents a deck setup to plot the results of our 
example. Notice that T134DF (after the exit) and T134E (before the 
exit) correspond to the file names under which TAPE13 was saved in 
Figures 4-d and 4-e. This example is easily extended to as many 

restart runs as necessary to complete the simulation. A GET is 
required for each TAPE13 saved and a C0PYBR is also required, with 
the COPYBR's in the same order in which the files were created. 
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Appendix A 

Program Modifications 

•♦IDENT 091877 

♦ DELETE PL TO AT .3# PLTOAT .3 

DIMENSION TITL E ( 1 8 ) # BUF(4C0)# NDIL(28)# TBUF(400)# 

♦DELETE PLTDAT.125#PLTDAT.125 

50 DO 51 1*1# 18 

♦ IDENT C 82477 

♦INSERT TOLA. 6 

COMMON/NVSTER/CFOUR#CONE#CONFRI#CTHREE#CTWO#DELPVR#DTIRE 

1 #EA#ETAMAX#ETAMIN#ETAN0S#ETART1#INDNWS#KANVS#KPNWS#PCTETA 

2 #PSIDES#RPSI#RYR#VPOVR#YRDES 

3 #DELN# ETADES# FGPY 

♦INSERT TOLA. 9 

1 # C FOUR# CONE# CONFR I# C THREE# CTWO# DEL PWR#DTIRE#EA#£TAMAX 

2 #ETAMIN,ETAN0S#ETART1#INDNWS#KANWS#KPNWS,PCTETA#PSIDES#RPSI 

3 #RYR#VPOWR#YROES 

♦INSERT TOLA. 19 

READ( 5»5004)CF0UR#C0NE#C0NFRI#CTHREE#CTW0#DELPWR#DTIRE#EA 

1 ,ETAMAX#ETAMIN,ETAN0S#ETART1#PCTETA#PSIDES#PPSI#RYP#VP0WR 

2 # YRDFS 

♦INSERT TOLA. 20 

READ(5#5005)INDNWS#KANVS#KPNWS 
5005 F0RMAT(3I5) 

♦INSERT L6EA3C.2 

EXTERNAL ATAN2 
♦INSERT LGEA3C.34 

COHMON/NWSTER/CFOUP»CONE#CONFRI#CTHREE#CTWO#DELPWR#DTIRE 

1 #EA»ETAMAX#ETAMIN#ETAN0S#ETART1#INDNWS#KANVS#KPNVS#PCTETA 

2 #PSIDES#PPSI#RYP#VPOWR#YRDES 

3 #DELN#ETADES#FGPY 

♦INSERT LGEA3C • 59 

EQUIVALENCE (0M18 (72 )# PS IPD ) 

♦INSERT LGEA3C.61 

DATA RADDEG,DEGPAD/57. 2957795#. 01745329/ 

♦DELETE LGEA3C.143#LGEA3C.143 

IFCI.EO.l .AND. INDNWS.EQ .1 )G0 TO 200 

♦ GO TO 7 

200 VTX (I ) *VTX ( I )— TMP (2 ) 

VTY(I ) *RD YG ( I ) 

7 VT7(I)*RG31*RDXG(I)+RG33*RDZG(I) 

♦INSERT LGEA3C .167 

IF ( DELTA1 .EO. 0.0) FGPY-0.0 
IF (DELTA1 .EO. 0.0) GO TO 41 
IF(INDNWS.EO.O)GO TO 41 
IFd.GT.DGO TO 41 
ETAVE- ATAN2(VTY(I)#VTX(D) 

OELN*PSIPD+ETADE$-ETAVE*RADDEG 
IF(OELN.EQ.O.O.OR.XG77F1.EO.O.O)GO TO 110 
SIDEMU*C0NFRIMA8S(DELN) )*«DELPVP + XG77F1^VP0VP 
i GO TO 180 
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110 SIDEMU-1 .OE-6 

180 IFU0€tTAl/DTIRE).GT.0.0875)G0 TO 130 
CRNPWR-C0NE*0ELTA1-CTW0*DFLTA1^*?. 

GO TO 170 

130 CRNPWR»CTHREE— CF0URYDELTA1 
170 YAWPPM-ABS{CPNPWR*DELN/{SIDEMU + FTRZ<n ) ) 

IF(YAWPRN.LE.1.5)G0 TO 150 
FGPY«SIOEHU*FTPZ(I)*COS(DELN*DEGRAO) 

GO TO 160 

150 FGPY-C ( YAWPRM-<4, 0/27.0) ♦YAWPRM**3.0)+SI0EMU*FTRZ (I) ) 

1 *C0S(DELN*DFGPA0) 

160 FGPY-PCTFTA+FGPY 

IF(DELN.GT.0.0)FGPY-A8S(FGPY) 

IF (DELN.LT.0.0)FGPY—A9S(FGPY) 

DPTRX-FGPY*SIN(ETAVE) 

DFTRY-FGPY*COS(ETAVF) 

FTPX<I1-FTRX(I)+DFTRX 
FTRY(I)-FTRY(I)+DFTRY 
♦INSERT LGEA3C.170 

FGPY ■ 0.0 

♦INSERT SDFLGP.34 

COHMON/NWSTER/CFOURjCONEjCONFRIjCTHREEjCTWDjDELPWRjDTIRE 

1 jEAjETAHAXjETAHINjETANOSjETARTIjINDNWSjKANVSjKPNVSjPCTETA 

2 jPSIDESjRPSIjRYPjVPOVRjYRDES 

3 jOELNj ETAOES j FGPY 

.♦DELETE SPFLGP.59jSDFLGP.60 

DIMENSION 0P16(18)j0P17(8)j0P18(8) jOP19<7) j0P20(8)j0P21(8)j 

1 DAT2(18)jDAT3(6)jDAT4(15) 

♦DELETE SDFLGP.67jSDFLGP.67 

♦ (OP 19 (I)# I*lj 7) /3HFZP j 2HLPj 2HHHj 2 HNMj4HFGPYj 4HDELNj6HETADES/ 
♦DELETE SDFLGP.73 jS0FLGP.73 

DATA DATl/4HTIHE/j<DAT2m jl»ljl8) /2HLHj2HMM,2HNMj5H0I77Pj 
♦DELETE SDFLGP.75>S0FLGP.75 

♦5HXG77Fj5HYG77Fj5HAX77Fj6HXG77F1j AHFGPY j 4HDELNj 6HETADES / j 
♦INSERT SDFLGP.80 

DATA N1/1/jN15/15/jN14/14/jN18/18/ 

♦DELETE SDFLGP.95jSDFLGP.95 

IF(ISDF.NE.0)WPITE(13)N18jNl,DAT2 
♦INSERT SDFLGP.102 

2 jFGPYjDELNjETADES 

♦DELETE SDFLGP.16AjSDFLGP.165 

CALL STFL (2j7jOP19) 

CALL ST0VAR<7jFZWjLMjMHjN*jFGPYjPELNjETADESjDU) 

♦INSERT AUTS.74 

COPMON/NWSTFR/CFOURjCONEjCONFRIjCTHREEjCTWOjDELPWRjDTIRE 

1 jEAjETANAXjETAMINjETANOSjETARTIjINDNWSjKANWSjKPNWSjPCTETA 

2 jPSIDFSjRPSIjRVRjVPOWRjYRDES 

3 jDELNjETAOESjFGPY 

♦INSERT AUTS.81 
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DATA ILIN*IN0SE/0>0/ 

♦INSERT AUTS.102 

IF (DE LTA1 .EO. O.O) GO TO 8 
IF<INDNWS.EQ.O)GO TO 8 
IF(KANWS.E0.1)G0 TO 7 

C CURRENTLY# NOSEWHEEL STEERING IS FOP DISTANCE ERROR 

C NOT ANGLE ERROR 

IF(KPNW$.E0.1)G0 TO 0 
ETADES-ETANOS 
GO TO 8 

7 ERP0R»(PSIPD-PSIDES)+RPSI*PSIPD1*RADDEG 
GO TO 3 

9 EPROR*( YP-YRDES)+RYR*YPD1 
3 IFflLIM .EO. 1 .AND. ETADES .EO. 0.0) INOSE-O 
IF ( INOSE .GT. 0 .AND. ETADES .EO. 0.0) GO TO 8 
IF CARS (ERROR ) .GT. EA ) GO TO 30 
GO TO 32 

30 IF { ER POP .GT. 0.0) GO TO 37 
ETADES-ETADES+ETARTl+DELTS 
INOSE *1 

GO TO 31 

37 ETADE S"ETADES-ETART1*DELTS 
INOSE-2 

31 IF ( ET ADES .GT. ETAMAX) ETADES-ETANAX 
IF( ETADES .LT. ETANIN) ETADES-ETANIN 
GO TO 8 

32 IF < INOSE .EO. 2) GO TO 38 
GO TO 39 

38 ETADES-ETADES+ETART1*DELTS 
IL IN" 1 

GO TO 99 

30 ETADES "ETADES-ETART1*DELTS 
ILIN-1 

99 IF(ABS{ ETADES) .LT. 1.0) ETADES ■ 0.0 

8 CONTINUE 
♦IDENT C 11778 

♦DELETE TOL A • 4#C 82477 ,4 

♦DELETE T0LA.9#C82477.7 

♦DELETE T0LA.15#T0LA.21 

♦ INSERT EXE. 32 

♦#0N64(30)#GAMA#DMfr5(15)#PCTETA#DMfc6<13)#AH{5)#DM67(35) 
♦DELETE EXE.54# EXE.54 

34 00 35 II"1# 4029 

♦INSERT EXE. 68 

DO 30 I«l# 5 

30 AH(I)-1.0 
♦INSERT EXF.79 

PCTET A"1,0 
GANA-1 .0 
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♦INSERT INUP0.4 

1,DM1( 100) 

♦INSERT UPDAT.3 

1# DM2 ( 100 ) 

♦INSEPT MIHIN.6 

♦,DM8( 100) 

♦INSERT LGDET.8 

C,DM9( 100) 

♦DELETE LGDET.33,LGDET.33 

49 F0RMAT(58X*4H-ES(,I1,19H) EXCEEDED IN LGDET/ 

♦INSERT LGDET. 34 

Yf J )■-* 5+ES Cl) 

Y(JJ)— 1.0E-10 
P< JJ)»- 1.0E-10 

♦DELETE LGDET. 47, LGDET. 50 

51 IF C P ( JJ).LT.O.)GO TO 30 
IF(Y(JJ).LT.0.)Y(JJ)*0. 

GO TO 55 
30 PIJI-O. 

P( JJ)-0. 

♦INSERT STGTSI.7 

♦»DM8( 100) 

♦INSERT STGTST.6 

4,DM8( 100) 

♦INSERT DEF.5 

♦»DM5( 100) 

♦INSERT LINES. 4 

C, 04(100) 

♦INSERT ERROR. 4 

C#DM3( 100) 

♦INSERT EXERR.3 

C»DM3( 100) 

♦INSEPT ATMS. 10 

4>DM8( 100) 

♦INSERT TFFS1.16 

♦ , DM16 (100 ) 

♦INSERT TFFS8.16 

♦,DM16 (100) 

♦OELETE VPCS1.23,VPCS1.23 

9XCGBF , XCGRF ,DM19( 930 ), D M20 ( 2068 ), DM21 (100 ) 

♦INSERT SACS1.63 

♦#DDM78 ( 100 ) 

♦INSERT 0PT1.72 

♦#DM158(100) 

♦INSERT LGEAR1.30 

♦,0DM21(60),AH(5),PH(5),DDM22(30) 

♦INSERT LGEAP1.203 

IF(P2(I).GT.0.)G0 TO 1000 
PHfI)»(P(I)*AH(I)-FC2(I))/AH(I) . 
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IFCPHCI) .LE.-1600. >G0 TO 1003 
♦DELETE LGEAP1.204,LGEAR1.204 

1000 SF ( I ) »-P( I )♦( A ( I )— A2 ( I))-P2(I)*A2(I)+FC2(I)-S2D1(1#I)* 

♦INSERT LGEAR1.205 

GO TO 1002 

1003 SF ( I) •— PC I)*(A(T)-AH(I)) +1600.+AHC I)— FF(I)*THP(2) 

♦DELETE LGEAR1.206#LGEAP1.206 

• 1002 IF f SD1 Cl# n.EO.O.O.AND.FT(I).LE.ABS(SF(I)))SFCI)— FTCI) 

♦DELETE LGEAP1.222#LGEAP1.222 

49 F0PMAT(58X#4H-ES(#I1#20H) EXCEEDED IN LGEAP1 / 

♦INSERT LGEAP1.223 

sci#n — o.5*Esm 
SD1(1#I)— 1.0E-10 
SD2C1# I)— 1.0E-10 
♦INSERT LGEAP1.229 

sci»n-o.5*Esm 

♦DELETE LGEAR1.234#LGEAR1.235 

51 IF(SD2(1#I).LT.0.)G0 TO 30 
IFCSDl(l#I).LT.0.)SDl(l#I>-0. 

GO TO 55 
30 SD2 (1 > I ) "0. 

SDl(l,I)-0. 

♦INSERT LGEAP1 • 240 

C RE-CHECK SHOCK STPUT FORCE FOP RE-CONDITIONED FULLY EXTENDED STATE 

IF(SD1(1#I).EQ.0.0.AND.FT(I).LE.ABSCSF(I)))SF(I) — FT(I) 

♦INSERT LGEA3C.30 

♦#DDM30(20)#SLEN1(5)#SLEN2(5)#GAMA#CF0UR#C0NE#C0NFRI#CTHREE#CTW0# 
♦DELPWR#DTIRE#DDM31(5)#INDNW$#DDN32(2)#PCTETA#DDM33( 3 )# VPOWR# 
♦DDM34#FGPY#DELN#ETADES#0DM35C45) 

♦DELETE LGEA3C.32#LGEA3C.33 

♦DELETE CB2477.14#CB 24 77.17 

♦INSERT LGEA3C.59 

EQUIVALENCE CDN18(31)#PA77P> 

♦DELETE LGFA3C.105#LGEA3C.106 

PCI) • (PZER0(I)+PA77P)4(VZER0(I)/(VZER0(I)+A2(I)*S2(1#I)- 
♦ S C 1#I )*A(I) ))* + GANA-PA77P 
♦DELETE LGEA3C.110#L6EA3C.110 

P2CI) • <P20m + PA77P) + (V20(I)/THP(im+GAMA-PA77P 
♦DELETE C 8 2477. 22# C 82477. 23 

200 IFCABSC (0MET(1#I)+TMP(1) ) 4C0S ( (P$IPD+ETADES)*DEGRAD)4RI ( 2# 2# I ) ) 

1 .GE. (RG11*RDXG(I)+RG13*RDZGCI)) )G0 TO 201 

VTXCI )*VTX(I)-TNPC2)+(PMET(1,I)4TNPC1) )*COS( ( PSIPD+ETADES >♦ 

1 DEGRAD)*RI(2#2#I) 

VTYCI )-RDYG( I )-{ONET(l# I >4THP<1 > )*SINt (PSIPD+ETADES ) ♦DEGRAD )♦ 

1 RIC2#1#I) 

♦INSERT C82477.24 

GO TO 203 

201 VTX(I)-1.E-10 

0METC1#I)"-(RG11*RDXG(I)+RG13*RDZG(I))/(RZEP0(I)— DELTACI)) 
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VTY(I)«RDYG(I)-'(0MET(1,I)*TMP(1))^$IN{{PSIPD + ETADFS)+DEGRAD)* 

1 R I( 2,1, I ) 

VTZ(I )-RG31*RDXG(I)+PG33+PDZG(I) 

♦DELETE LGEA3C.145,LGEA3C.145 

203 TMP(1 )-RGll*RDXGU)+RDZG(I)tRG13 
♦DELETE C82477.25,C82477.27 

♦DELETE C82477.29,C82477.29 

ETAVE-ATAN2(RDYG(I),TMP(1)> 

♦INSERT C82477.30 

IF ( DELTA1 .EQ. 0.0) FGPY ■ 0.0 
IF (DELTA1 .EO. 0.0)G0 TO 41 
♦INSERT FLEX1.17 

♦,GDAMP(20),DDM25{80) 

♦DELETE FLEX1.18,FLEX1.18 

♦INSERT SDFLGP.31 

C,DH18 (52)>FGPY,DELN,ETADES,DM19(45) 

♦DELETE C82477.53,C82477.56 

♦DELETE STORE. 5, STORE. 5 

C0MM0N/DIRC0M/DATAC4029) 

♦DELETE DSERCH.3,DSERCH.3 

COMMON /FIXDIR/ AN AME( 1000 ) > LOC ( 1000 ),NCOUNT 
♦DELETE DIR0DA.3,DIR0DA.3 

C0MM0N/FIXDIR/NAME(1C00),L0C(1000),NC0UNT 
♦DELETE DIP1DA.3,DIR1DA.3 

COMMON /F I XDIR /NAME ( 1000) ,LOC( 1000) ,NCOUNT 
♦DELETE DIR2DA.3,DIR2DA.4 

COMMON/FIXDIP/NAMEUOOO),LOC(1000),NCOUNT 
DATA NCOUNT/929/ 

♦DELETE DIR3DA.3,DIR3DA.4 

COMMON/ FIXDIR/NAME( 1000) ,LOC( 1000 ),NCOUNT 
DATA (NAME(K3),K3»876,929)/ 


♦OELETE 


DIP3DA«7»DIP3DA.8 


* 

6HPF 

, 6HG0 

, 6HGQD1 

, 6HG0D2 

,6HIFLX 

, 6HGDAMP 

,6HSLEN1 


' 4 

6HSLEN2 

,6HGAMA 

,6HCF0UR 

,6HC0NE 

,6HC0NFR I 

,6HCTHPEE 

,6HCTW0 


* 

6HDELPWR 

,6HDTIRE 

,6HEA 

, 6HET AMAX 

,6HETAMIN 

,6HETAN0S,6HETART1 


* 

6HINDNWS 

, 6HK AN WS 

, 6NKPNWS 

,6HPCTETA 

,6HPSIDES 

, 6HP PSI 

,6HRYR 


♦ 

6HVP0WR 

,6HYRDES 

, 6HFGPY 

,6HDE LN 

,6HETADES 

,6HILIM 

,6HIN0S E 


* 

6HISTEP 

,6HIRUDD 

, 6HINWRUD,6HAH 

, 6HPH 

/ 



DATA (L0CtK4),K4»876,929)/ 






♦DELETE 

DIR3DA.il, DIP3DA.il 






♦ 

3760 

,3880 

,3900 

,3920 

,3940 

,3960 

,3980 

, 

* 

3985 

,3990 

,3991 

,3992 

,3993 

,3994 

,3P95 

> 

* 

3996 

,39P7 

,3998 

,3999 

,4000 

,4001 

,4002 

, 

* 

4003 

,4004 

,4005 

,4006 

,4007 

>4008 

,4009 . 

, 

♦ 

4010 

,4011 

,4012 

,4013 

,4014 

,4015 

,4016 

, 

* 

4017 

,4018 

,4019 

,4020 

,4025 

/ 



♦INSERT 

AUTS.43 





* 


♦, 

DDM41 (38 ), 

EA,ETAMAX,ETAMIN, 

ETANOS ,ETART1, INDNWS,KANWS, K 

PNWS, 



.PTAnPS.TI TM.TKin^F, 




♦ISTER,IRUDD, INWRUD, DDH45 (40) 

♦DELETE C82477. 67,082477.70 

♦DELETE 082477.71,082477.71 

♦DELETE 082477.72,082477.72 

IF(OELTAl.EQ.O.O)GO TO 130 
♦INSERT 082477.77 

130 IFtlSTER.EO.DGO TO 29 
IF ( INWRUD .EO.l )G0 TO 82 
60 TO 8 

82 IFiDELRDE.GT. 0.0)60 TO 86 

ETADES ■ DELRDE*(ETANAX/DELRL> 

GO TO 8 

86 ETADES - DELRDE*{ ETAMIN/DELPU) 
♦DELETE 082477.78,082477.78 

♦INSERT C82477.79 

29 IF(TR. LE.TSDGO TO 35 

ETADES -FT AN0S+FTART1MTR-TST) 

GO TO 31 

35 ETADES-ETANOS 
GO TO 31 

♦DELETE 082477.03,082477.95 

GO TO 31 

-♦INSERT 082477.103 

31 IFCETADES .GT. ETANAX ) ETADES-ETAHAX 
IF ( ETADES .LT. ETAMIN) ETADES-ETAMIN 
♦DELETE AUTS.447, AUTS .448 

34 IF (IAP.GT .2)G0 TO 500 
DELRN-DELPNN 

♦DELETE AUTS. 454, AUTS. 454 

500 IFdRUDD.E0.D60 TO 5 
GO TO 150 

5 IFCINWRUD.EO.DGO TO 6 
IF (TR .LE.TSDGO TO 27 
DELRDE"DELRDI+DELRPD4(TR-TST) 

GO TO 101 
27 DELRD I»DELRD 
GO TO 101 
150 DELRN-DELRNN 
PSIE-PSIPD 

♦INSERT AUTS. 457 

GO TO 101 

6 IF (TR .LE.TSDGO TO 110 

DELRDE-OELRDI + DELRRDDTR-TST) 

GO TO 101 

110 IF(AB$(DELRDE).GT. 0.0)60 TO 120 
DELRDI-DELRD 
GO TO 101 

. 120 DELRDI-OELPDE 
♦INSERT AUTS. 460 
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106 CONTINUE 

♦DELETE AUTS.582*AUTS.583 

IF(IRUDD.E0.1)G0 TO 49 
IF( OELRDE.LT .DELRD) DELRD1"-DEL pro 
49 DELPD1-DELA 

♦DELETE AUTS.607,AUTS.607 

61 IFdAP.EQ.4)G0 TO 62 

IF<A8S(DELRD1*DELTS).GE.AB$(DELRDE-DELRD)>G0 TO 62 
♦INSERT FLARE1.38 

♦»DH21d00) 

♦INSERT AUTPR1.35 

♦ * DN41 (100 ) 

♦INSERT THAUTS.32 

♦*DDN9 (100 ) 

♦INSERT ENGFL.29 

♦*DN8( 100) 

♦INSERT CENGL.9 

♦#DN5( 100 ) 

♦IDENT SDDNODS 
♦DELETE 0 1778.2*0 1778.2 

34 DO 35 11*1*4036 
♦DELETE 0 1778.32*0 1778.32 

♦ #DDM21{43),INDNWS*D0H22d0>#ETADE$*DDH23<5)#AHt5)#PH(5)#DDH24(30.) 

♦INSERT LGEAR1.61 

EQUIVALENCE < INDSTE (73 ) * PS IPD ) 

DATA R ADD EG* DE GRAD/ 57. 2957795# .01745329/ 

♦INSERT LGEAR1.242 

IFdNDNVS.EO.l.AND.I.EO.DGO TO 301 
♦INSERT LGEAR1.245 

301 NACI)«-FTRY(I)4THP(1)+SINC(PSIPD+ETADES)*DEGRAD)+ 

1 FTR XC I)*TNP(1 )*COS( ( PSIPD+ETADES )*DEGRAD) 

GO TO 201 


♦ DELETE C11778. 54*01778. 54 

♦DDN34*FGPY*DELN#ETADES#DDN35(15)*CONFRH#DELPPN*VPOWPM*CONEN#CTWOM 

♦CTHREM#CF0UPM,DDF36(23) 

♦INSERT LGEA3C.142 

TNPETA - ETADES 

♦DELETE C82477.21#C82477.21 

TMPETA - 0.0 


♦ DELETE 0 1778.59,0 1778.59 

200 IF(ABS(0MET(1*I)*TNP(1)*C0S((PSIPD+TNPETA)+DFGPAD)) 

♦ DELETE 01778.61*0 1778.64 

VTX(I)-VTX(I>-THPC2H0NEm,I)4TPPU)*C0S{(PSIPD+TMPETA)^DEGRAD>' 
VTY(I) - RDYG ( I ) ♦ONETC 1* I ) *TMP (1)+SIN( ( PSIPD+THPETA )*DEGPAD) 

♦ DELETE 01778.67*01778.69 

OMETO*I)«-( (PG11^RDXG(I)+PG13+RDZG(I) ) / (COS d PSIPD+TMPETA ) ♦ 

1 DEGRAD)))/{P7ER0(I)-DELTA(I)) 

VTY(I) - RDYG(I)+0NET(1*I ) ♦TMP ( 1 ) *SIN { ( PSIPD+TMPETA ) ♦DEGRAD ) 

♦ DELETE 0 1778.74*0 1778.74 
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IF (PELTA1 .EQ. 0.0)GP TO 48 

♦ DELETE C82477»32#C82477«32 

SIDEMU ■ CONFRIMABS(DELN))4*PELPWP4VAXLE(I)**VPPWR 
.♦DELETE LGEA3C.16P#LGEA3C.168 

GO TO 48 

+DELFTE C82477.52#C82477.52 

I F C I .GT. 1) GO TO 48 
FGPY-0.0 

♦DELETE LGEA3C*171#LGEA3C»171 

GO TO 48 

41 ETAVEM-ATAN2(RDYG(I)#TMP(1)) 

DPLNM»PSrPD-ETAVEM*R*DDE<? 

IF(DELTA(I).E0.0.0)FGPYM-0.0 
IF(DELTA(I).EQ.O.O)GO TO 48 
IF(DELNM.EQ.0.0.0P.XG77F1.E0.0.0)G0 TO 1100 
SIDHUM «CONFRM+ (ABS(DELNM) ) ♦♦DELPP M*VA XLE ( I) ♦♦VPOWRM 
GO TO 1800 
1100 SIDHUM -1.0F-6 

1800 IF((0ELTAm/2.*PZERO(I)).GT.0.0875)GO TO 1300 
CRNPPM • CONEM+DELTAII )-CTWOM+DElT A(I)4*2. 

GO TO 1700 

.1300 CRNPRM » CTHREM-CFOUPM ♦DELTA! I) 

1700 YAWPMM • ABS(CRNPRM*PELNM/!SIDMUH*FTRZ(I) ) ) 

IF (YA WPMM ,LE.l.f)GO TO 1500 

FGPYM » SIDMUM+FTR7 (I )^COS(DELNM*DEGRAD) 

GO TO 1600 

1500 FGPYM - { (YAWPMM-!4«0/27#0)*YAWPMH**3«0)*$IDMUM*FTRZ(I ) ) 

1 ♦COStDELNM+DEGPAD) 

1600 IF (DELNM.GT.O.O)FGPYM-ABS (FGPYM) 

IF ( DELNM. LT. 0. 0) FGPYM— ABS( FGPYM) 

0FTRXH-FGPYM*SIN(ETAVEM) 

DFTPYM»FGPYM*COS (ETAVEM) 

FTPX(I)-FTRX(I)+DFTRXM 
FTRY(I)»FTRY(I)+DFTRYM 
48 CONTINUE 

♦DELETE C11778.77#C11778.77 

COMMON /D I RCOM/DATA (4036) 

♦DELETE Cl 1778. 82* Cl 1778* 82 

DATA NC0UNT/936/ 

♦ DELETE C 11778 «84#C11778»84 

DATA! NAME (K3)»K3-876, 936)/ 

♦OELETF C 1 1778 • 90# C 11778 *90 

♦ 6HISTER #6HIRUDD #6HINVRUD#6HAH #6HPH ,6HC0NFRM#6HDELPRM, 

♦ 6HVP0WRM,6HCDNEM #6HCTW0M #6HCTHREM,6HCF0UPM/ 

♦DELETE C11778.91#C11778.91 

DATA(L0C(K4)#K4-876#936)/ 

♦OELETE C11778.97#C11778.97 

♦ 4017 #4018 #4019 #4020 #4025 #4030 #4031 # 

♦ 4032 #4033 #4034 #4035 #4036 / 
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♦IDENT ACOBLK 
♦INSERT TOLA. 27 

♦COMPECK ACOBLK 

(;*********♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ACTIVE VARIABLES ************************* 


CONNON /ACTIVE/ AMUH 

* ACON 

, BC ON 

*CCON 

9 DCON 

1*APINT (5) 

*AP2T0(5) 

# APEA1 (f ) 

9 AREA2 ( 5) 

# AREA3 ( 5 ) 

. 

2*AREM0(5) 

, ARE03(5) 

» BL F0RT( 5 ) 

>BLNU(5) 

# BUFORT ( 5 ) 

9 BUNU ( 5 ) 

3# BETA 

jCDNOC (5) 

#C DNOE (5) 

> CDSV ( 5 ) 

*CFFOR ( 5 ) 

* CD3 ( 5 ) 

4,C0EF 

,C0EF0(5) 

,C0EF3(5) 

* CQPA 


? 

5*C SV1 (5 ) 

* C SV3 ( 5 ) 

>DELT 

> DELTX ( 5 ) 

> DELTX1 ( 5 ) 

* DLTX1D (5) 

6* DF ( 5 ) 

* DPI ( 5 ) 

»DSV(5) 

* PSTOP 

* DIOTA 

*DMTANH( 5) 

7* ENUP ( 5 ) 

*EPSIL0(5) 

,EPSR0L(5) 

>EPSSLP 

* ETASV 

* FSTPPK 

8*FF0RT(5) 

# FOAHST l 5) 

# FONHST ( 5 ) 

9 FORCHT ( 5 ) 

* FOR SST ( 5 ) 

*FST0P(5) 

9#GAMAH(5) 

* GAPAN 

*GNR 

9 HMH ( 5 ) 

* ICOSV ( 5 ) 

* IDEACT 

♦*IFRI (5) 

f IIXSVHC 5) 

9 I IXSVL ( 5 ) 

* I0PC0(5) 

*IPASS (5) 

*ISET(5) 

1*IXSVH(5) 

p IXSVL ( 5 ) 

» I FSTOP ( 5 ) 

, ISTROK( 5) 

#KAPT (5 ) 


2* NAC ( 5 ) 

, NITER 

* ONRUN 

9 PATN 



3 * P ERC NT ( 5 ) 

* PGAHAC ( 5 ) 

* P GAL AC ( 5 ) 

*PGA1I(5) 

*PGA1T(5) 


4#PGA2I (5) 

*PGA2T( 5) 

*PGA3I ( 5 ) 

,PGA3T(5) 



5# PR (5 ) 

» PS (5 ) 

* PI ( 5 ) 

*QC(5) 

*00(5) 

* OPUNPS ( 5 ) 

6# OSVC 5 ) 

* QSVCU ( 5 ) 

* QS VN ( 5) 

9 0SV1 ( 5 ) 

* 0SV3 ( 5 ) 

9 QS1 ( 5 ) 

7»QS3< 5) 

» QTCLER 

*RCLSV(5) 

* REDSLP ( 5 ) 

* RHOH 

* SBFOT 

8* S I PA 

t SA(5) 

*RESA( 5 ) 

,TAUF 

*TC1 

* TC2 

COMNON /ACTIVE/ TC 3 

#TC4 

» VCUM ( 5) 

* VELDEC 

* V0L1I ( 5 ) - 

1* V0L1T ( 5 ) 

> VOL 21 ( 5 ) 

* V0L2T( 5 ) 

* V0L3I (5) 

* V0L3T ( 5 ) 

9 VC 

2»WC1 

* WFORT ( 5 ) 

# WLFOR (5) 

* WLFORR 

9 XBIAS(5) 

9 XVA LVE ( 5) 

3»XKA( 5) 

* XKF ( 5 ) 

>XKSV(5) 

,XLPSV1(5) 

>XLPSV3(5) 

> XSTHR 

4*XMA(5) 

* XMA1 < 5 ) 

# XMA2 ( 5 ) 

9 XMA3 ( 5 ) 

* XNA4 ( 5 ) 

* XFA5 (5 ) 

5# XNA6 ( 5 ) 

*XMA7(5) 

*XHA8{ 5) 

# XHA9 ( 5 ) 

9 XH A10 ( 5 ) 

* XMA11 ( 5 ) 

fc*XNU 

>XSC0M(5) 

»XST0T(5) 

9 XSV(5) 

* XSVDOT ( 5 ) 

*XSVDD( 5 ) - 

7* XSVDDD ( 5 ) 

* XSVDMN ( 5 ) 

t XSVDMX ( 5 ) 

* XSVMAX ( 5 ) 

*XSVNIN(5) 

* XDDNAX (5) 

8* XDD M IN ( 5 ) 

* VOL AC 1(5) 

t VOL AHT ( 5 ) 

* VOL ANI ( 5 ) 

* VOLANT ( 5 ) 


9* WSV 

>WSV1 

# WSV3 

* ZETAC1 

* ZETAC2 

*ZSSC 

c***» ****** ***************** 

♦*****♦**♦♦ 

*********** 

*********************, 


♦IDENT CSCMODS 
♦INSERT EXE. 42 

♦CALL ACOBLK 
♦INSERT EXE. 253 

IF (IABS(INDLG).NF.3) GO TO 594 
CALL ALGEAR1 
GO TO 596 
594 CONTINUE 
♦INSERT EXE. 254 

596 CONTINUE 
♦INSERT INUPD.5 

NNUN • NUH+N 
WRITE (6*600) NNUH 

600 FORNAT (5X> 32HNUMBER OF INTEGRATED VARIABLES »*I3) 
♦DELETE LGDET .4#LGDET .4 
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C0MM0N/LGDE/LA(50),FC2(5),P2(5),PPES(5),C(5),IPPT,LTPT 
♦ DELETE LC-DET.39,LGDET.39 

53 F0RMAT(58X,4H ES(,I1,20H) EXCEEDED IN LGDET / 

♦DELETE LINES .6,L INES .6 

IF(L0NG.LE.41)RETUPN 
♦INSERT 0PT1.75 

♦CALL ACOBLK 
♦INSERT 0PT1.77 

EQUIVALENCE (01*155(133), INOLG) 

♦INSERT 0PT1.354 

IF (IABS(INDLG).NE.3) GO TO 2070 
CALL ALGEAR1 
GO TO 2075 
2070 CONTINUE 
♦INSERT 0PT1.355 

2075 CONTINUE 

♦DELETE LGEAR1.34,LGEAP1.34 

C0MM0N/LGDE/LA(50),FC2(5),P2(5),PRES(5),C(5),IPPT,LTPT 
♦INSERT LGEAR1.121 

IF (IABS(JNDLG) .EO. 3) NDEQ»10*NS TRUT 
♦INSERT LGEAR1.122 

IF (IABS(INDLG) .EQ.3) CALL ACTINIT 
-♦DELETE LGEAR1.228,LGEAR1.228 

53 FORMAT! 58X, 4H FS(,I1,20H) EXCEEDED IN LGEAR1 / 

♦DELETE LGEA3C.35,LGEA3C.35 

COMMQN/LG0E/LA(5O),FC2(5),P2(5),PRES(5),C(5),IPPT,LTPT 
♦INSERT LGEA3C.53 

EQUIVALENCE ( DM14 ( 155 ), INDLG) 

♦INSERT LGEA3C.104 

IF (IABS(INDLG) .EQ.3) GO TO 31 
♦INSERT LGEA3C.196 

IF (IA3S(IN0LG).E0.3) GO TO 46 
♦DELETE SDFLGP.36,SDFLGP.36 

CO*MON/LGDE/LA(50),FC2(5),P2(5),PPES(5),C(5),IPPT,LTPT 
♦INSERT SCFLGP.47 

♦CALL ACOBLK 
♦INSERT C82477.58 

DIMENSION AC0VAR1 ( 8 ), AC0VAR2(8), AC0VAR3(8)» AC0VAR4(8), 

♦ ACOV AR5 ( 8 ) , AC0VAR6 ( 8 ), AC0VAR7(8), AC0VAR8 ( 8 ) , AC0VAR9 ( 8 ) 

♦INSERT SDFLGP.78 

DATA( ACOV AR1 (I), 1-1,8 ) / 5HV0L1T, 5HV0L2T, 5HV0L 3T, 5HPGA1 T, 5HPGA2T, 

♦ 5HPGA3T, 5HGAMAH, 5HC0EF0/ 

DATA! AC0VAR2(I), 1-1,8 ) /2H00,4HVCUM,6HBLF0RT,6HBUF0RT, 5HFF0RT, 

♦ 6HF0RCHT,6HF0AHST,6HF0NHST/ 

DATA(AC0VAR3(I), 1-1,8) /5HCFF0R,5HFST0P,6HF0RSST,6HXVALVE,3HXSV, 

♦ 5HDELTX, 6HDELTX1,6HDLTX1D/ 

DATA( ACOVARA(I), 1-1,8) /2HDF,3HDP1,2HPS>2HP1,3HQSV,4HQSVN,4H0SV1, 

♦ 4H0SV3/ 

0ATA(AC0VAR5(I),I-1,8)/6HEPSIL0,3HHMM, tHDMTANH, 5HXST0T, 5HIC0SV, 
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♦ 4HENUP*5HWLF0R*5HI0PC0/ 

OATA( ACOV AR6 ( I ) * 1-1*8) /6HI IXS VH* 6HI I XSVL * 5HIXSVH, 5HIXSVL *5HI P AS S 
♦*3HNAC*4HRESA*2HSA/ 

OATA( AC0VAP7CI)* 1-1*8) /6HVELDEC* 6HWL FOPR* 6HIDE ACT* 4HZ SSC * 4HC0PA * 

♦ 4HSIPA*5HDST0P*6HFST0PK/ 

DATAC ACOVAR8(I), 1-1*8) /5HWF0RT*6HV0LAHT*6HV0LANT*5HQSVCU*3HXMA*. 

♦ 4HXMA5,4HXHA8,5HXNAll/ 

DATA(ACOVAP9(I ), 1-1,8) /6HXSVDDD, 5HXSVDD* 6HXSVD0T* 2HPR * 4HI FRI* 

♦ 6HIFST0P,6HISTR0K,4HISET/ 

♦INSERT C82477.66 

IF(IABS(INDLG).NF.3) GO TO 50 
CALL STFL (2*8*AC0VAR1) 

DO 33 I-1*NSTRUT 

CALL STOV AR C 8* V0L1T ( I ) *VOL 2T( I ) * V0L3T ( I ) * PGA1T ( I ) , PGA2T ( I ) * 

♦ PGA3T(I),GAMAHCI)*C0EF0(I)) 

33 CONTINUE 

CALI STFL (2*8,AC0VAP2) 

DO 34 I-1*NSTRUT 

CALL ST0VAR<8,00(I),VCUN(I)*BLF0RT(I)*BUF0RT(I)*FF0RT(I )* 

♦ FOP.CHT(I)*FOAHST(I),FONHSTCI)) 

34 CONTINUE 

CALL STFL(2*8*AC0VAR3) 

DO 35 I-l* NSTRUT 

CALL ST0VAR(8*CFF0R(I)*FST0PCI)*F0RSST(I)*XVALVE(I)*XSV{I)* 

♦ DELTX(I)*DELTX1(I)*DLTX1DII)) 

35 CONTINUE 

CALL STFL<2,8*AC0VAP4) 

DO 36 I-l* NSTRUT 

CALL ST0VARC8*DF(I)*DP1(I),PS(I)*P1(I)*QSV(I)*0SVN(I)*0SV1(I), 
♦0SV3C I ) ) 

36 CONTINUE 

CALL STFL(2*8,AC0VAR8) 

DO 37 I-1*NSTRUT 

CALL S TOVAR ( 8* WFORT ( I )* VOL AFT ( I ) * VOLANT! I)*QSVCU(I)*XMA(I)* 

♦ XMA5 (I),XHA8(I)*XHA11<I) ) 

37 CONTINUE 

CALL STFL(2*8,AC0VARQ) 

DO 38 I-l, NSTRUT 

CALL $T0VAR<8,XSVDDDU)*X$VDDU),XSVD0T(I)*PPm*FL0AT(IFRim )* 

♦ FLOAT<IFSTOP<I))*FLOAT<ISTROKCI))*FLOAT(ISETfI))) 

38 CONTINUE 

CALL STFL(2*8,AC0VAR5) 

DO 39 I-l, NSTRUT 

CALL ST0VAP(8*EPSIL0<I),HNM(t)*DNTANH(I)*XST0TCI),FL0AT(IC0SV(I )*), 

♦ ENUP(I)*WLFORCI)»FLOAT(IOPCOII))) 

39 CONTINUE 

CALL STFL(2*8,AC0VAR6) 

DO 40 I-l* NSTRUT 

CALL STOVAR C 8* FLOAT( IIXSVHI I ) )»FLO AT LI IXSVL 1 1 ) ) , FLOAT M XSVH ( I ) ) , 
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* FLOAT(IX$VL(I))#FLOAT(IPAS$(I)}# 

* FLOAT<NAC(I))#RESA{I>#SA<I)) 

40 CONTINUE 

CALL STFL(2#8#ACOVAR7) 

CALL STOVAR(e#VELDEC#WLFOPP,FLOAT( IDEACT) # ZS$C#COPA#SIPA#DSTOP# 

* FSTOPK) 

50 CONTINUE 

♦INSERT SDFLGP.183 

I F < IABS ( INOLG) .NE. 3) GO TO fc 

11 ■ I+3+NSTRUT 

12 ■ I+4+NSTPUT 

13 - I+5+NSTRUT 

CALL UPDAT(1#LA(I1)#PGA1T<I),DU#DU#DU#DU> 

CALL UPDAT(1#LA(I2)#VCUM{I)#DU#DU»DU#DU) 

CALL UPDAT<1#LAU3)#OSVCU<I)#OU#DU#DU#DU) 

11 ■ 3+ I +6*N STRUT-2 

12 - I+9*NSTRUT 

CALL UP0AT{3#LA(Il)#XSVDD(I)#XSVD0Tm#XSV(I>#DU#DU) 

CALL UP0AT<1#LA(I2)#0ELTX1(I)#DU#DU#DU#DU) 

♦INSERT READ. 35 

SLTSYM - 0.0 
IBC - 0 
INXQ- 0 
JBC - 0 

♦INSERT AUTS.87 

DELPI ■ 0.0 
TR ■ 0.0 

♦IDENT ACTINIT 
♦INSERT LGEA3C • 227 

♦DECK ACTINIT 

SUBROUTINE ACTINIT 
C 

£****************♦*** FATOLA VARIABLES *♦♦♦****♦♦**♦*♦***♦♦*♦**♦*♦♦♦♦ 
COMMON/OIPCOM/DMK 115 )#AL PHD# DM1A( 20 ># AMASS# DM2 { 147 )#DCL1#DCM1# 
CDCN1#DCL2#DCM2#DCN2#DCL3#DCM3#DCN3#DM3(99)#FXB7P# 
CDUM4(3)#FYB7P(4)#FZB7P#0M5(17)#GXB7F#DM6(8)#GZB7F# 
CDM7(218)»INDSTE(48)#PHIP0#INDSTE1(23)#PSIPD# INDSTE2 1156 )#THTPD# 
CINDSTE3(5)#TIME#DM8<287)#PI77P(2)#PI77R1{2)#DM9(4)# 

CQI77RI2)# 0I77R1 (2)#DM10{4)#RI77R(2)#PI77R1(2)#DM11(48)# 

CXG77F (2)# XG77F1 ( 12 ) # YG77F <2)#YG77F1(12)# 

CZG77FI2)# ZG77F1 (2)#DUM13(52)# 

CNSTRUT# MASS ( 5)#RX(5)#RY(5)#RZ(5)#THETAD(5)#EPDFG#RGR# 

CNTIRES (5)#R7ERO(5)»W(5)#DELTAM(5)#MOMENT(5)# 

CRF < 5) # VZ #IFD#PZER0(5)»VZER0(5)»A ( 5 ) # P20 ( 5 )# V20 (5 ) # 
CA2(5)#IL#S2T(5)#ES2(5)#C2L(5)#MASS2(5) #MUS ( 5 ) # 
CCC(5)#CE(5)#C2C(5)#C2E(5)#NVGPT#NPP,MB(5)#RLT,NDELTA# 
CES(5)#SB{5)#S021(2)#SD22(2)#SD23(2)#SP24(2)#SD25(2) 
COMMON/DIRCOM/ 

CSD11(2)#SD12(2)#$D13(2)#SD14(2)#SD15(2)» 
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CS1(2)#SS2(2),S3(2)»S4(2)»S5(2), 

CS2P21 (2),S2D22(2),S2023(2),S2D24<2 ),S2D25(2), 

CS2D11 (2)#S2D12(2)»S2D13(2)#S2D14(2)#S2D15(2)# 

CS21(2)#S22(2)#S23(2),S24(2)#S25(2), 

COMTDll(2)#OMTOl2(2),OMT013(2)#OMTD14(2),OMTDl5(2)# 

C0MTl(2)#0MT2(2)#nMT3(2),0MT4(2)#DMT5(2)# 

CAI(5)#BI(5)#DELTA1,DELTA2#DELTA3,DFLTA4,DELTA5, 

CD0ELT1#DDELT2,DDELT3,DDELT4#DDELT5,ISTAGE# 

CPRTMIN#IPLT,ISDF,ISTPL1, ISTPL2#ISTPL3#ISTPL4,ISTPL5, 

CDM14(22)#IB(5)#DM15(127)#INDLG,DM16(107),CASK(44),INDFLX# 

*NMaDE#DM18(40)#SXM0D(100)#$YM0D(100),SZM0D(100),DM19(1686)# 

*GQD2(20),DDM20(20) 

♦,DDM21(20),SLEN1(5)#SLEN2(5)#DUH15(13)#INDNWS#DDM22(10)#ETADES, 
♦DDM23(5), AH(5)#PH(5),DDM24(30) 
C0MM0N/LGDE/LA(50)#FC2(5)#P2(5),PRES(5)#C(5)#IPPT#LTPT 
C 

♦CALL ACOBIK 

DIHEN SION CD3 ( 5 ) # SD1(2#5) 

EQUIVALENCE(SD11(1)#SD1(1#1))# ( DH5 ( 16 )# GREFF ) 

DATA STATEHENTS TO SET VALUES OF INPUT VARIABLES 

DATA AHUH/O. 00018/# BETA/14400000./ 

DATA BLMU#BUMU/10*0.15/ 

DATA AREA1,AREA2# AREA3/5*0. 21139# 5*0. 32167# 5*0. 00698/ 

DATA AREMO#ARE03,APINT/5*0.0066#5*0.19635#5*0.0/ 

DATA CDM0C,CDM0E»CD3/5*0.9,5*0.14197,5*0.6/, CFF0R/5*50.0/ 

DATA CDSV#DELT#D IOTA/ 5*0. 62# 0.0001 #0.0/ 

DATA EPSIL0,EPS$LP,EPSR0L,ETASV/5* 200.0, 0.0, 5*2000.0,0.436/ 

DATA GAMAN,GAMAH#GNR/1.06,5*52.36#0.0/ 

DATA IC0SV#IFST0P/10*0/ 

DATA IDE ACT# II #K APT, PMPUN# PEPCNT/7*0#-0 . 07575# 5*1. 66115/ 

DATA P ATM, PGAHAC# PGAL AC/2116. 8# 5*432000.0# 5*0.0/ 

DATA P G A1 I, PGA2 I, PGA3I/1 5*40320.0/ 

DATA TAUF#TCl#TC2,TC3,TC4/0. 1,0. 281, 0.141, 0.001, 0.0001/ 

DATA VOL1I#VOL2I,VCL3I/5*0. 36379, 5*0. 47164, 5*0.0/ 

DATA RH0H#VLF0P,VLF0PR/1. 626, 5*500. 0,0.0/ 

DATA DSV# RCLSV# WSV1#WSV3/ 5*1 .1875, 5*0.0000475, 2*3 .480/ 

DATA VC# WC1, VS V,XKSV,XSTHP/1263. 0,251. 3,655. 5,5*0.00250# 0.02083 3/ 
DATA XKA# XKF# XL PSV1, XL PSV3/5*0. 04, 5*60.0, 5*0.0# 5*0.0/ 

DATA XB I AS, XSCCM, XSVPMN, X$VDMX/5*-0. 0001 4, 5*1. 206, 5*-30. 1,5*30.1/ 
DATA XDDMAX#XDDMIN/5*1.0E20#5*-1.0E20/ 

DATA XSVMAX-#.XSVNIN, ZETAC 1 #7 ET AC 2/5 *0.1 00# 5+-0.100# 5 .1,0 • 1/ 

DATA V0LACI# V0LANI, 0.PUHPS/, 5*1. 33333, 5*0. 26667, 5*0. 02005/ 

C ******* ******* ********************************************** ********** 

IF (TIME .GT. PELT) RETURN 
C 

AC0N»1,/(WSV*W$V*WC) 

BCON-l./( WSV*WSV)*2*ETASV/(VSV*WC) 
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CC0N-2.*ETASV/V$V+1./VC 

OCDN-1. 

XMU-AMUH/. 0000209 
0T0LER-.0001 
S3F0T-0.0 
VELDEC-0. 

0MRUN«0MRUN*0, 01745329 
II - 0 

DO 100 I«1>N$TRUT 
REDSLPfl) • 100000,0 
ISTPOK ( I ) «0 
NAC ( I ) *0 

VOLANT ( I ) » VOLANI(I) 

V0LlT(n«V0LlI(I) 

V012T(I)«V0L2I(I) 

V0L3T( D-VOLBKI) 

OSVCU(I)-0.0 

DF(I)-0. 

DELTX (I )»0, 

OELTXHI)»DELTX{I)*XKF(I) 

DLTX1D ( I J *0, 

XMA(I)»IDF(I)+DELTX1(I))*XKA(I) 

XMA5(I)«XMA(I) 

XKA8( I > -XHA5 « I J 
XMAlim-XMA8<I> 

XMA1C I )«0, 

XMA2( I )*0, 

XHA3C I)-0. 

XMA4{ I )»0, 

XHA6( I )»0, 

XMA7( T ) *0, 

XHA9(I)-0. 

XM AlO ( I ) *0, 

XSVDD ( I ) *0, 

XSV0DD<I)«0. 

XSV(I)»XKSV(I)*XMA11(I)+XBIAS(I) 

XSVDOTCD-O.O 

DPHIJ-O. 

C0EF3(I)»CD3(I)*$QPT(2,*GREFF/GAMAH(I)) 

NOTE* SUBROUTINE «PHL072* COMPUTES INITIAL PRESSURES AND FLOWS IN 
UNITS OF INCHFS • 

COE F»C0SVtI)*S0RT(2,* GREFF/ 6AMAH(I))*144, 

CSV1( I ) •COEF+WSVl 
CSV3(I)-C0EF*WSV3 
PS(I)«PGAHACm/144, 

PRm»PGALAC<I)/144. 

ocm-o. 
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CALL PHL0Z2(PS(I)#PR(I ) > XSV ( I ) , OC (I) # XL PSV1 (I) * XL PS V3 ( I ) , RCLSV, PS V 
£ #CSVl<n,CSV3m#XMU,0T0LER»NITFR*Pim,QSim#0S3(I)> 

PGA1I CI)«Pl{im44. 

PGA2I CI)-PGAII(I) 

PGA3ICI)-PGA2I(I) 

QSV1(X)»0S1(I)/172B. 

OSV3C I)-QS3(I)/1728. 

C 

PGA IT <I)»PGA1I (I) 

PGA 2T(I)«PGA 21(1) 

PGA3T(I)»PGA3I(I) 

Q0(I)-0. 

OSV(I )-OSVl(I)-OSV3tI) 

VCUM ( I ) "0 • 

C 

AP2T0(I)-PGA2I(I)+PATM 

FFORT(I) • 0.0 

FOPSST(I)»0.0 

WFORT { I ) »0.0 

FONHS T ( I ) »0. 0 

F0RCHT(I)-0.0 

XVALVE(I) -XSV(I) 

100 CONTINUE 
C 

CALL SETUP 

PETURN 

END 

♦IDFNT ALGEAP 
♦INSEPT ACTINIT .145 

♦DECK ALGEAR 

SUBROUTINE ALGEAR1 
C 

H***M**M***MMtMt FATCLA VARIABLES ♦♦*♦♦♦*****♦***♦*♦*****+*♦***♦♦* 
C0MP0N/DIRC0M/DMK115) * AL PHD#DM1A ( 20)>AMASS#DM2(147)#0CL1#DCM1# 
CDCN1#DCL2#DCM2#DCN2*DCL3#DCM3#DCN3*0M3(99)#FXB7P> 
CDUH4(3)>FYB7P(4),FZB7P,DH5<17),GXB7F,DN6<8),GZB7F# 
CDM7(218)#INDSTE(48)#PHIPD*INDSTE1(23)#PSIPD# INDSTE2 (1 56)* THTPD# 
CINDSTE3(5)>TIME*DM8(287)*PI77R(2)*PI77R1(2),PM9<4)> 

C0I77R (2)#QI77R1(2)#DM10(4)#RI77R<2)*RI77R1(2)*PH11(48), 

CXG77F (2 )* XG77F1 (12)#YG77F(2) * YG77F1 ( 12 )* 

CZG77F ( 2 ) # ZG77F1 (2) t 0UM13 ( 52 ) » 

CNSTRUT>MASS(5)>RX(5)>RY(5)*RZ(5)»THETAD<5)*EP0EG>RGR> 
CNTIRES(5)*RZERO(5)*W(5)*DELTAH(5)* HOHFNT (5 )* 

CPF (5) ,VZ #IFD#P7ER0(5),VZEP0(5),A(5)#P20(5)#V20(5)» 
CA2(5)*IL,S2TC5)*ES2(5)>C2L(5)*MASS2<5)*MUS<5)* 
CCC(5)*CE(5)*C2C<5)*C2E<5)*NVGPT#NPP*MB(5)*RLT»NDELTA# 
CES(5)*SB(5)*SD21(2)*SD22(2)»S023(2)*SD24(2)*S025(2) 

CONMON/DIRCOM/ 

CS011(2)»SD12(2)#S013(2)#SD14(2)#S015(2), 
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CS1(2)#SS2(2)>S3(2)»S4(2)>S5(2)» 

CS2P21 (2)#S2D22<2)>S2P23(2)»S2P24C2),S2025(2)# 
CS2P11(2).»S2012(2)#S2P13(?)#S2P14(2)#S2015(2)> 
CS21<2>*S22<2)*S23(2>*S24(2>#S25<2), 
C0MT011(2)#0MTD12{2)#0MTD13(2),0MT014(2)#0MTD15<2)# 
C0MT1(2)#0MT2(2)#0MT3(2)#0MT4(2)#0MT5(2)# 
CAI(5),BI(5>#DELTA1,0ELTA2,PELTA3>PELTA4,0ELTA5, 

CDDELT1, 0PELT2,PDELT3,DDFLT4, OPEL T?, I STAGE, 

CPRTMIN,IPLT,ISPF, ISTPL1, ISTPL2, ISTPL3, ISTPL4, ISTPL5, 
C0M14(22),IB{5>,0M15(127)>INDLG,DM16<107),CASK(44),IN0FLX> 
♦NMODE»DM18(40),SXMOD(lOO),SYMC0(10O),SZMOP(lOO),DM19<168fc), 
♦GQP2<20),00M2OC20) 

♦,D0M21<20)>SLEN1(5>,SLEN2<5),0UM15(13),IN0NV$,DDM22(10>*ETA0ES, 
*DDM23(5),AH(5),PH(5), PPM 24(30) 

REAL MASS»MOMENT, MASS2, MUSjNTIP ES,M8 
PIHENSION 0LGAUT(14),PLGPE(47),DLG(7),0LGE(299) 
C0MM0N/LGAUTS/ARG11>ARG13, ARG31, AR G33, AMA ( 5 ) > VAXL E ( 5 ) 
C0MM0N/LGPE/LA(50),FC2(5),P2(5),PRES(5),C(5),IPPT,LTPT 
COMMON /LG/FXM,FYM,FZM,LM, MM, NM,EPSL02 
C0MH0N/LGE/A11(5),A13(5),A31(5),A33(5),RRCGX(5), 
CRL(3»3),RI(3,3,5)*RAX(5),PAY(5),RAZ(5)>THP(3),ZZER0(5), 

CXR (5),YR(5),EPSL0N(5),PA(5),FPELTA(5), 

CFTRZ(5)#RDX(5),RPY(5),R07(5),P0XG(5),PDYG(5),R0ZG(5), 

CVTX(5),VTY(5),VTZ(5),GZ(5), VGPT( 5 > ,FTRX ( 5 ) , FTRY( 5 ) , 

CDX(5),0Y(5),PZ(5),FT(5),FDX(5),F0Y(5),FF(5),AA(5),C2(5), 

CSR(5),SF(5),PSKD(5),MUVP(5),MTRX(5),MTRY(5), 

CMTPZ(5),MA(5),RG11,PG13,PG31,RG33, IPRT, 

CMTX,MTY,MTZ>SFTRX,SFTRY,SFTRZ,FTPA, 

CFTR8»FTRC,SHTRX,SMTRY»SMTRZ 

C0MM0N/FLX0P/GF0RC2(100),GF0RC3(100),GF0RC4(100),BH1(308) 
EQUIVALENCE ( OLGAUT ( 1 ) , AR Gil ) * ( OLGDE ( 1 ) » LA ( 1 ) ) , 
*(DLG(1)*FXN),(0LGE(1)*A11(1)) 

C0MM0N/TABSRC/DUMM1(103),L0C(7) 

C0MM0N/HTC0M/HT,HT1,HT2 

C 

♦CALL ACOBLK 
C 

REAL MUVP,MTRX,MTPY,MTRZ,MA, 

CMTX,MTY,MTZ,LM,MM,NM 
PI MENS ION DELTA(5),0PELTA(5),P(5), 

C S02(2#5),SD1(2,5),S(2,5),S2D2(2,5),S2D1 ( 2, 5 ), S2 (2, 5 ) , 

C0HET01(2»5),0NET(2,5) 

EQUIVALENCE ( P ( 1 ), PRES ( 1 ) ) 

EQUIVALENCE ( DELTA ( 1 ) , PE LTA1 ) , ( OOELTA ( 1 ) , PPELT1 ) 

EQUIVALENCE 

C(S021(1)#SP2(1,1)), ($D11(1),S01(1,1)), ( SI (1 )p S ( 1, 1 ) ) , 
C(S2021(1)»S2D2(1»1))» ( S2D11 ( 1 ) # S2D1 ( 1, 1 ) ) , ( S21 (1 ) * S2 ( 1* 1 ) ) , 
C(OMTPll(l),OMETDia,I) ),(0MT1(1),0MET(1,1) ) 



ORIGINAL FAGS t3 
OF POOR QUALITY 


A-18 


C****+*»* *♦***♦ ACTIVE CODE**** *******♦♦♦♦♦*♦*****♦ **♦+♦***♦**♦** 
EQUIVALENCE ( OP 5 ( 16 ) , GR EF F ) 

DATA IFRI/5*0/*FST0PK/0.0/,F$T0P/5*0.0/*DST0P/0.004/ 

DATA SA*RESA*HMM*IXSVL*IX$VH*IIXSVL*IIXSVH*IPASS 
1 /15*0.* 25*0/ 

DATA ENUP/5*0.0/ 

DATA ISET,I0PC0*0$VN/10*1*5*0.0/ 

Qldl*T2)»SIGNd»* (T1-T2) )*SQPT(ABS(T1-T2) ) 

C** *********************************** ************************** 

c 

DATA RADDEG*DEGRAD/57.2957795*.0 17 45329/ 

C 

C MAIN COMPUTATIONAL AREA 

C RL MATRIX ELEMENTS 

RL(1» 1)-DCL1*RG11+DCL3*RG13 
RLd»2)-0CL2 

RLIli 3)»DCL1*RG31+DCL3*RG33 
RL(2»1)«DCM1*RG11+DCM3*RG13 
PL ( 2* 2 ) "DCM2 

PL(2*3>-DCM1*RG31+DCM3*RG33 

RL(3*1)"DCN1*RG11+DCN3*RG13 

RL(3*2)-DCN2 

RL(3»3)“DCN1*RG31+DCN3*RG33 
CALL LGEA3C 
C 

C******************* ACTIVE CODE ******************************* 
C START ACTIVE GEAR CALCULATIONS 

COPA - COS< (THTPD+DIOTA)*DEGRAD) 

SIPA ■ SIN{ dHTPD+DIOTA ) *DEGRAD ) 

IF { TI ME .GT. DELT) GO TO 18 
15 WR TTE (6*1013) 

1013 FORMAT (1H020H ACTIVE CONTROL GEAR) 

18 IF ( ID E ACT • EQ *1 ) GO TO 56 

19 IFdDEACT • EQ • 2 ) GO TO 80 
IF(HMM(I) .EQ. 0.) GO TO 90 
IF (OMRUN .GT. 0.0)G0 TO 25 

IF ( 7G77F1 (II .GE. VELDEC) GO TP 90 
GO TO 40 

25 IF ( ZG77F1 (1 ) .GE. VELDEC + XG77FK1) ♦TAN(OMRUN) )G0 TO 90 
40 WRITE C6*1014)TIME 

1014 FORMAT (1H036H REDUCE CONTROL LIMIT FORCE AT TIME»*E16.8) 
IDEACT-1 

56 WLFOR(I)«WLFOR(I)-REDSLPd)*DELT 
EPSILOd)-EPSILO(I)+EPSSLP*DELT 
' IF ( WL FOR (I ) .GT. WLFORR ) GO TO 90 

60 WR ITE (6*1015)TIME 

1015 FORMAT (1H027H CONTROL AT WLFORR AT TIME-*E16,8) 

IDEACT-2 

80 WLFOR (D-WLFOPR 
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90 


EPSILO(I)»EPSROL(I) 

CONTINUE 


£**************♦***************************************♦*************** 
DO 65 I»1#NSTRL'T 

WFORT(I) ■ (SQRT(FXB7P*FXB7P+FYB7P*FY87P+FZB7P*FZB7P))/( NSTRUT-1 ) 
6 +(FOPSST(I)+COPA) 

c************************* active cooe ***♦********♦***♦****♦*♦♦♦*♦♦*♦♦ 


IF(KAPT(I).NE.O)GO TO 210 
APINT(I)«0.0 
210 CONTINUE 

IF (PGA1TC I ) .LE. -1600.0) PGAIT(I) - -1600.0 

V0L1T(I)»V0L1I(I)-(AREA1(I)-APINT(I))*S(1*I) 

VOL3T(I)-VOL3I(mAREA3(I)*S(l>I) 

V0L2T(I)-V0L2I(I)-(AREA2(I)-AREA1(I)+APINT{I) )*S(1>I)+(V0L3T(I) 

X -VOL 31(1)) -VCUM(I) 

PGA2T(I)-AP2T0(I)* , < ( V0L2I ( I ) /V0L2T ( I ) ) **GAMAN )-PATM 
IF(SD1(1#I) .EO. O.OJGO TO 104 

PGA3T(I)-{ (C0EF3(I)*ARE03(I) ) **2*PGA2T ( I )-$Dl ( 1 , I ) ZABS ( SD1 ( 1 , I ) ) 
X *(SD1(1>I)*AREA3(I))**2) 

E/((CQEF3(I)*ARE03(I))**2) 

GO TO 105 

104 PGA3T(I)-PGA2T(I) 

105 IFCPGAIT(I) .GE. PGA2T(I))G0 TO 106 
GO TO 107 

106 GAM AH ( I ) *R HOH* GREFF* ( l.O-MPGAlT(I) *3.04E-08 )- 

♦ ( PGA IT ( I ) **2*2 .72E-15 ) ) 

GO TO 108 

107 GAMAH(I)*RH0H*GREFF*(1.0+(PGA2T(I) *3.04E-08 )— 

♦ (PG42T(I)**2*2.72E-15)) 

108 IF ( PG AIT ( I ) .GE. PGA2T ( I ) )COEFO( I ) • 

* C0M0C(I)*SQRT(ABS(2.*GREFF/GAMAH(I)) ) 

IF(PGA2T(I) .GT. PGA1 T (I) )COEFO ( I ) • 

* CDMOE(I)*SQRT(ABS( 2 .+GREFF/GAMAH ( I ) ) ) 

IF(SD1(1#I).LE.0.0) GO TO 109 

Q0(I)-C0EF0(I)*(AREM0(I)-APINT(I))*Q1(PGA1T(I)#PGA2T(I) ) 

109 IF (PGA2T( I ) .LE. -1600.0 ) PGA2T( I ) --1600.0 
IF(PGA3T(I) .LE. -1600.0) PGA3T(I)— 1600.0 

100 IF (DELTA(I) .LE. 0.0 .AND. TIME .GT. DELT)GO TO 101 
GO TO 110 
•101 FFORT ( I )*0.0 
GO TO 140 

110 CONTINUE 

,'C COMPUTE STRUT AXIAL BINDING FRICTION FORCE 

BLF0RT(I)-F0NHST(I)*((SLEN2(I)-S(1»I))/(SLEN1(I)+S(1,I))+1.0) 
BUF0RT(I)-F0NHST(I)*(SLEN2(I)-S(1*I) ) / (SLEN1 ( I ) +S ( 1> I ) ) 
FFORT(I)»BUMU(I)*ABS(BUFOPT(I))+BLMU(I)*ABS(BLFORT(I)) 

140 CONTINUE 

C COMPUTE SHOCK STRUT CHARGING FORCE 

IF ( S( 1* I ) .GT. 0.0)G0 TO 142 


I 
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141 FORCHT(I) «PGA1T(I)*APEA1( I ) +PC-A2T ( I ) * ( ARE A 2 C I J-ARE A1 ( I ) )-PGA3T( I) 
X *APEA3(I )+FF0PT(I)+CFF0P (I) 

C COMPUTE NORMAL AND AXIAL HUB TO SHOCK STRUT FORCES AT HUB 

142 FONHST(I)“SQRT(FDX(I)**2+FDY{I)**2)-MASS(I)*GPEFF*SIPA+SBFOT 
IF ( ABS ( FT ( I ) ) .LE. FORCHTCI) .AND. S(1,I) .EO. O.OJGO TO 150 
GO TO 801 

150 CONTINUE 

FORSSTtl)-FT(I) 

SD1 (1* I )*0«0 
IF(I.EO.l) GO TO 450 
ISTROK ( I ) »1 

C ****** 289 CHANGED TO 2<J3 FOR DEBUGGING PUPPOSESi 
GO TO 295 

C COMPRESSION VELOCITY OF SHOCK STRUT IS POSITIVE 

801 IF(SD1(1*I) .LE. 0.8 .AND. IFPI(I) .EO. OJGO TO 2 
GO TO 3 

2 DMTANHtD-l.O 
GO TO 284 

3 DMTANH(I)«ABS(TANH(2.0*SD1(1* I) ) ) 
iFRim-i 

284 IF (SC 1# I ) .LE. DSTOP .AND. SD1(1*I) .LT. O.OJGO TO 900 
GO TO 902 

900 IF ( S( 1* I ) .LE. 0.0001JG0 TO 903 
GO TO 904 

903 SD2(l*I)-0.0 
SD1 (1* I )»0.0 
S(1*I)«0.0 
DPI (I J *0.0 
FFORT ( I ) «0. 0 
VCUM(I)-0.0 
00(1) -0.0 
II-O 

C CALL VIPK4(II/N*NT*CI*SPEC*CIMAX*IERR#VAR*CUVAR#DER*ELE1*ELE2* 

C 1 ELT#ERRVAL*DERSU8*CHSUB, ITEXT) 

GO TO 902 

904 CONTINUE 

IF ( IF STOP (I) .NE. OJGO TO 906 

905 DST0P-S(1*I) 

FST0PK-2.0*MASS(I)*S01(1* I)**2/DSTOP**2 

906 IF(S(1*I) .LE. DSTOP/2 .OJGO TO 908 

907 FSTOPCIJ— FST0PK*(DST0P-S(1*IJ) 

GO TO 909 

908 FSTOP(I)— FSTOPK*SCi#l) 

909 IFSTOP ( I ) *1 
IFR I ( I )*0 
GO TO 901 

902 FSTOP ( I ) *0.0 

901 IF ( ABS ( FT ( I ) ) .LE. FORCHT(I) .AND. S(1*I) .EO. O.OJGO TO 500 
IFCSD 1(1*1) .LT. O.OJGO TO 470 
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GO TO 471 

470 FFORTd)— FFORTd) 

CFFORd)— CFFOPd) 

471 FOPSST(I) — ( <PGAlTd)-PGA2Td))*<AREAld)-APINTdD 
F + PGA2Td)*AREA2d) 

X -PGA 3Td)*AREA3d) + ( FFORTd) 

1 +CFFORd) )*DNTANHd)+FSTOP( I) ) 

500 IF ( INDFLX. GE • 1 )G0 TO 295 
IFd.EQ.l) GO TO 450 
ISTROK ( I ) "1 

c ************ BRANCH FOP DEBUGGING PURPOSES! 


GO TO 295 

289 IF ( S( 1# 19 .LE. 0.0)290*295 
290 IFdOPCOd) .EO. 1 ) GO TO 295 

IF C (PGAlId)-1000.0).LT.PGAlTd).AND. 

F PGA1TCI ).LT. (PGAlId) +1000.0)) 299* 298 
299 IF ( XVALVE ( I ) .NE. 0.0)G0 TO 311 
IFdPASS(I) .EO. 1 ) GO TO 296 


298 


291 


292 


300 


XVAlVEdJ-XKSVd 
IPASS (I )»1 
GO TO 294 
IF ( ICOSV ( I ) .EO. 
IOPCOdJ-O 
IF(XSV(I) .LT. 0 
IF(S02d*I) .LE. 
IFdOPCOd) .EO. 
IF(PGAlTd) .GT. 
IFdXSVLd) .€0. 
XVALVEdJ-XVALVE 
IF ( XVALVE ( I ) .LE 
XVALVEd)— 0.1 


)*XMAlld)+XBIASd) 


DGO TO 291 

.002 .AND. XSVCI) .GT. -0.002)291*295 
0.0 .AND. ICOSVd) .EO. 1)G0 TO 311 
DGO TO 295 
PGAlId))292*293 
DGO TO 294 

d)+XSVDMNd)*DELT*PEPCNTd) 

. -0.1)300*294 


IXSVL CD-I 
GO TO 294 

Z<tt IFdXSVttdl .EO. DSD- T& 294 

XVALVEd) -XVALVE d)+XSVDNXd)*DELT*PERCNTd) 

IF C XVALVE (I ) .GE. 0.1)302*294 
302 XVALVE ( I ) "0.1 
IXSV4d)-l 
294 CONTINUE 
11*0 

C CALL VIRK4(II*N*NT*CI*SPEC*CIMAX*IERR*VAR*CUVAR*DER*ELE1*ELE2 
C 1 ELT*ERRVAL*DERSUB,CHSUB* ITEXT) 


DL TX1 DIII'OiO 
ICOSVd)-l 

296 IF ( WFORT (I ) .GT. 0.0 .AND. Sd*I) .LE. 0.0)G0 TO 410 
311 IFCNACd) .EO. DGO TO 307 

IF ( II XSVH Cl) .EO. DGO TO 305 

XVALVE II) -XVALVE Cl )+XSVDHN (I ) ♦DELT*PERCNT(I ) 

IF ( XVALVE (I ) .LE. 0.0)305*400 
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305 XVALVgm-0.0 
IIXSVHCD-1 
GO TO 400 

307 IFCIIXSVLCI) .EQ. 1)G0 TO 308 
XVALVECI)-XVALVE(I)+XSVDHXCI)*DELT*PERCNT(I) 

IF ( XVALVE Cl) .GE. 0.0)30B»400 

308 XVALVE C I ) *0.0 
IIXSVL(I)-1 

400 II»0 

C CALL VIPK4 ( I I* N# NT, Cl# SP EC, CINAX# I ERR/VAR,CUVAP,DEP, ELE1# EL E2, 

C 1 ELT,ERRVAL,DERSUB,CHSUB,ITEXT) 

410 IF ( XV ALVE Cl) .NE. O.OJGO TO 295 

icosvcn-o 

DELTX1(I)-DELTX<I)*XKFCI) 

XMA (I)»CDFCI)+DELTX1(I))*XKA(I) 

XHA11 (I)-XMACI) 

XSV(I )«XKSV( I )*XHA11 Cl )+XBIAS( I) 

CALL LIMITS(XSV(I),XSVOOT{I),XSVMAX(I),XSVNIN(I) ) 

IPASS C I ) *0 

IXSVL < I ) -0 

IXSVHCD-0 

IIXSVLCD-0 

IIXSVHCD-0 

IOPCOCD-1 

CALL PHL0Z2CPSCI),PRCI),XSVCI),QCCI),XLPSVltI),XLPSV3CI),RCLSV< I), 

£ DSVCI),CSV1(I),CSV3CI),XHU,0T0LER,NITER,P1(I),QS1CI),GS3(I)) 

C 

295 IF(ISTROKCI) .EQ. 1 .AND. SCI, I) .GT. 0.0) IOPCOCI )»0 
C 

ENUP(I)«.5*AMASS*ZG77F1(1)**2 
ENUPC I)"ENUPCI)/ (NSTPUT-1 ) 

IF(HMMCI) .EQ. 1 • 0 )G0 TO 130 
SAtn-o. 

IF(WFORT(I).LT.O.) XSTOT 1 1 ) «ENUP ( I ) / C C-WFORT ( I ) ) *COPA ) 

IF(WFORTCI) .GE.O. ) XSTOT { I ) -1 . E20 

C ZSSC IS A PERCENTAGE OF SB C I > FOR ACTIVATING CONTR OL-CDNOC < I ) IS US 
7SSC*0#6*CDM0CCn*SB(I) 

IF ( XSTOT ( I ) .LE. <ZSSC-SC1,I) ) .OR. PESA(I) ,E0. 1.0) SA { I ) -1 .0 
PESAC I)-SA(I) 

IF ( SA ( I ) . EO.O. .OP. HMNCD.EQ.l. ) GO TO 130 
WLFORCI)— WFORTCI) 

VELDEC-((VLF0R(I)+WLF0RR)/2.*(WLF0PCI)-WLF0RP) ) / ( AMASS + REDSL P ( I )) 
WRITEC6,121)TINE,WLFPRCI),VELDEC 

121 F0PMATC50H ACTIVE CONTROL INITIATED. .. TIME, WLFOR, VELDEC ■ , 

1 3E13.5) 

HMMCD-l. 

130 IFCSC1,I) .GT. 0.0 ) IS ETC I ) «0 
IFCHMMCD.EQ.O.) GO TO 451 

IFC-WF0RTCI).GT.CWLF0P(I)+EPSIL0CI))) DF(I)-CWLFORCI)+ 
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£ EPSIL0(I))-<-VF0RT(I)) 

IF(-WFOPT(I).LT.(WLFOR(I)-*EP$ILOCT))) DF (I ) • ( WLFOR < I ) 

£ EPSIlO(I>)-(-WFOPTm) 

IF{-WFORT(I).LE.CWLFORm+EPSILO(I)).AND. 

£ -WFORTCI) .GE. CVLFOP (I)-EPSILO(I ) ) ) 

* 457,456 

457 IF (SC 1, 1 ) . LE • 0.0)G0 TO 456 

453 IFCWFORTCI) .GT. 0.0 .AND. QSVCUCI) .IT. 0.0)454,455 

454 DF(I) -WLFORCI)-C-WFOPT(I) ) 

GO TO 456 

455 DFCD-0.0 

456 DELTXCI)-S(1,I)-XSC0M{I) 

IFCSC 1,1) .LE. 0.0 .AND. ISETCI) .EQ. OIGO TO 451 
GO TO 452 

451 DF(I)-0. 

DELTXCD-O. 

4 52 XMA(n-<DF<I)+DELTXltI))*XKA(I) 

IFCGNR.EO.l. .AND. XMA ( I ) .GT.O. ) XMA(I)« 
t XMA (I)*SQRT( CPGAIT(I)-PGALACCI)) 

X /(PGAHACCI)-PGAIT(I))) 

NOTE * SUBROUTINE 'FL07E2* COMPUTES THE FLOWS FROM THE PRESSURES 
IN UNITS OF INCHES. 

Pim-PGA1T<I)/144. 

‘ C COMPUTATION OF HIGH PRESSURE ACCUMULATOR NITROGEN VOLUME 

C AND ACCUMULATOR PPESSUPE 

VOLANT(I)«VOLANTII)+OSVN(I) *DEL T-Q PUMPS ( I ) *DELT 

PS(Il-(({PGAHAC(I)+PATM)tCVOLANI(I)/VOLANTCI) )**GAMAN)-PATM) /144.0 
IF ( PS ( I ) .GE. 3000.0)464,465 

464 PS ( I) *3000.0 

VOL ANTI I )■ VOL AN I Cl) 

465 VOL AHT ( I ) ■ VOL AC I CI)-VOLANT(I) 

IF ( VOL AHT CD .LE. 0.0)466,467 

466 WRITEC6,1050)TIME 

1050 F0PMATC1H0//45H ACCUMULATOR OIL VOLUME INSUFFICENT AT TIME-,E16.8 
1 //) 

CALL LGEAR6 
STOP 500 

467 CONTINUE 

CALL FL07E2CPS{I),PR(I),P1CI),XLPSV1(I),XLPSV3CI),RCLSVCI),DSVCI), 
£ XSVm,0$im,QS3(I>,CSVlCI>,CSV3II),XMU) 

0SV1CI)-0S1CI)/1728. 

0SV3CI)-QS3CI)/1728. 

■C 

450 CONTINUE 

QSVl(l) ■ 0.0 
0SV3C1) ■ 0.0 
QSV(I)«OSV1CI)-OSV3{I) 

IFCQSVC I ) .LT. 0.0)NAC(I)-1 
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IF ( OS VC I ) .GT. 0.0)NACCI)-2 
IFCNAC(I) .FQ. 2)461* 462 

461 OSVNCI)-QSVn} 

GO TO 463 

462 OSVNCD-O.O 

463 IFC$D1C1*I).LT. 0.0 . AND . PC-A1T C I ) . LE . -1600 . 0 ) PGA1T C I ) —1600.0 
274 CONTINUE 

11 - I+3*NSTRUT 

12 » I+4*N$TPUT 

13 • I+5+NSTRUT 

CALL INTEGCLACI1)#DP1CI) ) 

CALL INTE GCLACI2)*Q0CI)) 

CALL INTEGCLACI3)*0SVCI) ) 

C ********** ****************************************************** 
IFCSD1C1*I>.E0.0.0.AND.FTCI).LE.ABSCF0RS$TCI)>)F0R$STCI) — FTC I) 
AACI) ■ CFTCI)+FORSSTCI))/MASSCI) 

SD2 (1 » I ) ■ SRCI)+AACI)-GZCI) 

HT1-HT 

IFCS01C1»I))76#77»78 

76 TTIME-SC1*I)/ABSCSD1C1,I)) 

79 IFCTTIME.GE.HT)GO TO 77 

HT1-TTIMF 
GO TO 77 

78 TTIME-CSBCn-SClvI) )/SDlCl,I) 

GO TO 79 

77 CONTINUE 

IFCSC1*I).GT.C-ESCI))>G0 TO 50 
WRITE C6#49)I#I>SC1#I) 

49 FORMAT C 58X*4H— ES C>I1#20H) EXCEEOED IN ALGEARV 
C58X#2HS(#I1>4H) • E15.7) 

S C 1 # I )— 0.5*ESCI) 

SD1C1*I)<— 1.0E-10 
SD2C1#I)— 1.0E-10 
50 IF CSC'l# M .LE.ESCI))GO TO 51 

IF C SC If I ) «LE. C SB C I )-ES C I ) ) ) GO TO 55 
IF CSC 1#I) *L6* C SBC I ) ♦ES C I ) ) ) GO TO 52 
WRITE C 6# 53 )T» I *S Cl* I ) 

53 FORMA TC 58X* 4H ESC*I1*20H) EXCEEOED IN ALGEAR/ 

C58X*2HS C*I1*4H) - E15.7) 

S M> I ?) *0 • 5* E SCI) 

52 IF < SO 1 Cl* I ) . GT . 0 . ) S D1 C 1 , 1 ) -0 . 

IFCSD2C1#I).LT.0.)G0 TO 55 
SD2M*I1»0. 

GO TO 55 

51 IFCSD2C1* D.LT.O.JGO TO 30 
IF CSD1M* I ) .LT .0. )SD1(1*,I)"0. 

GO TO 55 
30 S02Cl*I>-0. 

SDlCl*I)-0. . 
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55 CONTINUE 

12*2*1 +NSTRUT-1 
11-1241 

CALL INTEG(LAd2)*SD2d*I)> 

CALL INTEGCLAdl)#SDld*I)> 

C RE-CHECK SHOCK STRUT FORCE FOR RE-CONDITIONED FULLY EXTENDED STATE 
IF(SD1C1# I) .EQ.O.O.AND.FTU).LE.ABS(FORSST(I) ) JFORSSTCI)— FT(I) 
TMP(1)-RZERDCI>— DELTA(I) 

IFlCASKd ).GT.1.E-10>G0 TO 200 

IF(INDNWS.EQ.1.AND.I.E0.1)G0 TO 301 

HAtll— FTRY(I)*TNP(l)*RI(2fl#I)+FTRX(I)*TMP(l) 

C*R I (2#2# I ) 

GO TO 201 

301 MACD— FTPYd)*TMPd)*SINdPSIPD4ETADE$)*DEGRAD)4 
1 FTRX(I)*TMP(1)*C0S({ PSIPD+ETADES )*DEGRAD ) 

GO TO 201 

200 NA(I)-TMP<1)*S0RTCFTRYCI)*FTRY(I)+PTRX(I)*FTRX(I)) 

NAd)"SIGN(HA{ I )*— VAXLE ( I )— 0NETC1» I)*TMP(1) ) 

201 AHAtl)-MA(I) 

IFdBd).NE.t-l)>GO TO 48 
0METD1 d* I)-0» 

OMETC If I )»0« 

GO TO 21 
48 TUP (1 ) -0» 

IF(0MET(1*I).NE*0«)TNPC1J ■0HET(1» I )/ABS ( ONE T Cl# I ) ) 
0MET01(l*I)-(MAm— MB<I)*THP(in/(NTIRES(I>*MONENTCin 
21 CALL INTEG(LACI)# 0MET01 d * I ) ) 

Qt**********************************************************************: 

65 CONTINUE 

C CALCULATION OF FTRA> FTRP* AND FTRC 
SFTRX-O. 

SFTRY-O. 

SFTRZ-O. 

DO 70 I«1#NSTRUT 
SFTRX-SFTRX+FTPXd) 

SFTRY-SFTRY4FTPYd> 

70 SFTRZ »SPTR 74-F-TPZ H> 

FTRA-Rl d> l)*SFTRX4Rt d*2 )*SFTRY4RLdr3>*SFTR7 
FTR8»RL(2#1)*SFTPX+PL(2^2)*SFTRY+PLC2#3)*SFTPZ 
FTRC-PL(3»1>*SFTRX4RLC3,2)*$FTRY4RL<3* 3)*SFTRZ 
C CALCULATION OF NTX# MTY* AND MTZ 
SMTRX-O. 

SMTRY-O. 

SHTRZ-O. 

DO 75 I-1*NSTRUT 
SMTRX -SMTRX4NTPX d ) 

SMTRY-SNTRY+MTPY(I) 

75 SMTRZ-SNTRZ+MTPZd) 

MTX-RL{l#l)PSMTRX4RLd#2)*SMTRY4PL(l#3)*SNTRZ 
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MTY»RL(2#1)*SMTRX+PL(2»2)*SMTPY+RL (2»3>*SMTRZ 
MT7«RL(3#1)*SMTRX-+RL(3>2)*SMTRY+PL(3>3)*$MTRZ 
C CALCULATION OF FXM# FYM# FZM* LM> MM, AND NM 

FYM-O. 

FZH.O. 

FXM-O. 

LM-O. 

MM-O. 

NM»0. 

BFX-O. 

BFY-O. 

BFZ-0. 

BLM-0. 

BMM-O. 

BNM-0, 

DO 82 I-1,NSTRUT 
DFXM-O. 

DFYM-0. 

DFZM-O* 

DLM-0. 

0MM*0. 

DNM-O. 

DO 14 IL4»1,NM0DE 
NBP*( IL4-1 ) *NSTRUT+I 

DFXM»D FXM— MASS (I)*SXMGD(NBB)*GQD2(IL4) 
DFYM«DFYM-MASS(I)*SYM0D(NBB>*G0D2{IL4) 
DFZM«DFZM-MASS (I)*SZM0D(NBB)+GQD2(IL4) 

NBH*( I— 1 ) *NM0DF+IL4 

DLM-DLM-MASS(I)*GF0RC2CNBH)4GCD2(IL4) 

DMM-DMM-MASSM)*GFORC3(NBH)»GOD2(IL4) 

14 DNM»DNM— MASS M ) *GF0RC4 1 N8H)-*6CD2 ( I L4 ) 

BFX«B FX+DFXM 
BFY-BFY+DFYM 
BFZ-BFZ>DFZM 
BLM-BLM+OLM 

bmm-bmm+dmm 

BNM-BNM+DNM 

TMP(l)-MASSm*SD2(l>I) 

FXM«F XH+TMP (1 ) +A31 Cl) 

FYM-FYM 

FZM-F7M-*-TMPU)*A33(I) 

LM -LM>TMP ( 1 ) *A11 ( I ) *R Y tl) 
MH«HM-TMPM)*RRCGX<I) 

82 NM«NM+TMP ( 1 )*A13 ( I )*RY(I ) 

FXM-FXM+BFX+FTPA 

FYM-FYM+BFY+FTRB 

FZM-FZM+BFZ+FTPC 

lm-lm+blm+mtx 

MM-MM+BMM+MTY 
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NM»NM +BNM+MTZ 
ENTRY SETUP 


; C 

DO 28 I«1*NSTRUT 

'1 IFCSDl (1* I ) .IE. O.O) GO TO 20 

DPI (I >-(-Q0(I)4QSVim-QSV3<m(APEAl<I)-APINT{I))*SDlCl,in 
. j * *8 ETA/V0L1T ( I ) 

1 IF ( PGA1T ( I ) .LE. -1600.0) 10*20 

] 10 PGAIT(I) - -1600.0 

! IF (DPim .LT. 0.0) DPI C I ) »0.0 

i 20 CONTINUE 

| C II-O 

i c CALL VIRKAMI,N*NT*CI,SPEC*CIMAX,IERR*VAR*CUVAR*DER*ELE1*ELE2* 

i C 1 ELT*ERRVAL*DERSUB*CHSUB*ITEXT) 

IF(ICOSVCI) .EO. 1 ) GO TO 26 

XNA5(I)-XMA(I)+(2.*ZETAC2*WC1)*XNA1(I)+{WC1**2)*XMA2(I) 

G -(2,*ZETAC1*WC1)*XPA3(I)-{VC1**2)*XNA4(I) 

XMA8(I)»(TC1/TC2)*XMA5(I)+(1./TC2)+XMA6(I)-(1./TC2)*XHA7(I) 

XMA11 ( I ) ■ (TC3/TC4)*XM A8( I)+(1./TC4)*XHA9CI)— (l./TC4)*XMA10CI) 

I C IF(S(1*I) .LE.XSTHR ) XNAll(I)-0. 

XSVDDD<I)-(XK$V(I)*XMA11( I )-BCON*XSVDD ( I )-CCON*XSVDOTC I )- 
t DC ON* (XSV(I)-XBIAS(I)))/ACON 
DLTX1D(I)»(XKF(I)*DELTX( I )— DELTX1 CD) /TAUF 
• 26 CONTINUE 

CALL LIMITS ( XSV( I )* XSVDOT( I )* XSVMAXt I ) * XSVMIN (I )T~ 

CALL LIMITS(X$VOOT(I)*X$VDD(I)*XSVDMX(I),XSVDMN(I) ) 

CALL LIMITS<XSVOD<I)*XSVDDD<I)*XDDMAX{I)*XDDMIN<I)) 

11 » 3* 1+6 AN ST RUT-2 

12 ■ 11+1 

13 - 11+2 

CALL INTEG(LA(I1)*XSVDDD(I)) 
i CALL INTEGC LA ( 12 ) * XSVDDC I ) ) 

| CALL INTEG(LA(I3)*XS.VD0T(I) ) 

! II - I+9+NSTRUT 

CALL INTEG(LA( II ) *DLTX1D ( I ) ) 

28 CONTINUE 
RETURN 
END 

♦IDENT PHL0Z2 
♦INSERT PHL0Z2.1 

♦DECK PHL0Z2 

SUBROUTINE PHL0Z2(PS*PP*X*QC*LAP1*LAP3*RCL*D*C0EF1*C0EF3*MU*QT0LER 
E*NITER*P1*Q1*Q3) _ __ 

C * PH10Z2* D. EDSON 

C 

C THIS SUBROUTINE CALCULATES THE STEADY-STATE CHAMBER PRESSURE (PI) 

C AND FLOW RATES (01 € Q3) FOR A TWO-WAY NONSYHMETRICAL SPOOL VALVE 

*C WITH RECTANGULAR WINDOW SLOTS* GIVEN THE STROKE (X) AND THE LOAD 
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FLOW ( OC > • THE PARAMETERS REOUIREO IN THE 'CALL* STATEMENT ARE 
THE SAME AS DESCRIBED IN SUBROUTINE «FL0ZE2«# WITH THE FOLLOWING 
ADDITIONAL PARAMETERS! 

QC ■ THE FLOW RATE TO THE LOAD 

QTOLER - THE TOLERANCE ALLOWED IN CALCULATING FLOW RATES# FDR 
DETERMINING WHETHER OR NOT THE SOLUTION HAS CONVERGED 
(.0001 IS TYPICAL) 

NITER » THE NUMBER OF ITERATIONS REQUIRED TO CONVERGE TO A 
SOLUTION (INTEGER) 


IMPLICIT REAL(L#M) 

PFN(X1#X2#Y1#Y2» Y3# Y4 )-Xl + (X2-X1 )* (Y2-Y1 ) / (-Y1+Y2-Y3+Y4 ) 
NITER-0. 

FLAG--1. 

i P1FLAG— 1. 

,C 

.4 P1A-PR 

; P1B-PS 

CALL FL0ZE2(PS#PR#P1A#LAP1#LAP3#RCL#D#X#Q1A» 03A# C0EF1#C0EF3#MU) 

CALL FLOZE2(PS#PR#P1B#LAP1#LAP3#RCL#D»X#Q1B#03B#COEF1#COEF3#MU) 

IF(Q1A.EQ.0. .AND. Q3B.EQ.0.) GO TO 51 

03A-Q3A+0C 

Q3B-Q3B+QC 

GO TO 50 

51 PI- (PS+PR ) /2. 

01 - 0 . 

03-0. 

GO TO AOO 
C 

50 P1-PFN(P1A#P1B#03A#01A#Q1B#Q3B) 

CALL FL0ZE2(PS»PR»P1#LAP1#LAP3»RCL#D#X#Q1,03#C0EF1#C0EF3#MU) 
Q3-03+QC 

IF ( FL AG.LT .0. ) GO TO 55 
IF(PI.EQ.PII) GO TO 100 
55 P1I-P1 

IF (01 .EO.O. .AND. Q3.E0.0.) GO TO 100 
IF ( ABS (01 ) .GE. ABS (03) ) QDEN-Q1 
IF ( ABS ( Q3 ) .GT. ABS(Ol)) ODEN-03 
IF ( AB S ( (01-03) /QDEN ) ,LT, OTOLER) GO TO 100 
IF ( 01 .LT.03 ) GO TO 90 
P1A-P1 
01A-Q1 
Q3A-Q3 
GO TO 150 
P1B-P 1 
Q1B-01 
Q3B-Q3 

GO TO 150 - 


90 
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100 P1FLAG-1. 

150 FLAG-1, 

NITER -NITER+1 

IF(P1FLAG.GT,0.) GO TO 300 
GO TO 50 
** 300 CONTINUE 
03-03-0C 
400 RETURN 
END 

♦IDENT FL02E2 
♦INSERT PHL0Z2, 66 

♦DECK FL07E2 

SUBROUTINE FL0ZE2( PS# PR# P1#LAP1# LA P3#RCL#D#X# 01# Q3#C0EF1#C0EF3# MU ) 
•FL0ZE2*. * R, 0. EDSON 

THIS SUBROUTINE CALCULATES THE STEADY-STATE FLOW RATES (01 AND 
03) FOR A TWO-WAY NONSYMMETRICAL SPOOL VALVE WITH RECTANGULAR 
WINDOW SLOTS# GIVEN THE LOAD CHAMBER PRESSURE (PI) AND STROKE 
(X). THE PARAMETERS REQUIRED IN THE ‘CALL* STATEMENT ARE AS 
FOLLOWS* 

X - VALVE STROKE 

PI - PRESSURE IN CHAMBER 1 (TO LOAD) 

01 - FLOW RATE FROM SUPPLY LINE TO CHAMBER 1 

03 - FLOW RATE FROM CHAMBER 1 TO RETURN LINE 

PS - SUPPLY PRESSURE 

PR ■ RETURN PRESSURE 

LAP1 « OVERLAPPED OR UNDERLAPPED LENGTH BETWEEN THE SPOOL 

AND SLEEVE AT NULL# FOR FLOW Ql, A POSITIVE NUMBER 

IS USED FOR OVERLAP# A NEGATIVE NUMBER FOR UNDERLAP, 
LAP3 - OVERLAPPED OR UNDERLAPPED LENGTH BETWEEN THE SPOOL 

AND SLEEVE AT NULL# FOR FLOW 03, A POSITIVE NUMBER 

IS USED FOR OVERLAP# A NEGATIVE NUMBER FOR UNDERLAP, 

RCL • RADIAL CLEARANCE BETWEEN THE SPOOL AND SLEEVE 
D - DIAMETER OF SPOOL 

C0EF1 - FLOW COEFFICIENT OF ORIFICE 1 (SUPPLY TO CHAMBER 1) 

» CD*W1*SQRT(2,*GC/RH0) 

C0EF3 - FLOW COEFFICIENT OF ORIFICE 3 (CHAMBER 1 TO RETURN) 

- CD*W3*SQRT(2,*GC/RH0) 

WHERE W1 ■ TOTAL WINDOW WIDTH OF ORIFICE 1 
W3 • TOTAL WINDOW WIDTH OF ORIFICE 3 
CD - DISCHARGE COEFFICIENT 
GC - GRAVITATIONAL ACCELERATION CONSTANT 
RHO • DENSITY OF HYDRAULIC FLUID 
MU • VISCOSITY OF HYDRAULIC FLUIO# CENTIPOISE 

THE METHOD OF SOLUTION UTILIZES THE TURBULENT ORIFICE EQUATION 
AND THE EOUATION FOR FULLY-DEVELOPED LAMINAR FLOW THROUGH AN 
ANNULUS# WITH FULL ECCENTRICITY ASSUMED. FOP ORIFICE OPENINGS 
WHERE SOME OVERLAPPED LENGTH EXISTS# THE PROCEDURE IS TO CALC- 
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ULATE THE FLOW RATE PY BOTH EOUATIONS* AND THEN USE THE ONE 
THAT GIVES THE SMALLEST ABSOLUTE VALUE AS THE ANSWER. FOR 
OPENINGS WHERE NO OVERLAPPED LENGTH EXISTS > ONLY THE TURBULENT 
ORIFICE EQUATION APPLIES. 

IMPLICIT REAL (L#M) 

012tTl*T2)-SIGN<l., (T1-T2 >) *SORT ( ABS < T1-T2 ) ) 
O34(T3,T4)»4.5E06*(T3-T4)*D*RCL**3/MU 
C 

C ************************* CALCULATE Q1 ********************** 

X2-LAP1-X 

X4-SQRT(X2**2+RCL**2) 

IF (LAP1 .LE. 0.) GO TO 99 
C 

C POSITIVE LAPSi 

IF ( X .GE. L API ) GO TO 65 
Q1«RCL*C0EF1*Q12(PS#P1) 

01L-Q34(P$,P1)/X2 

IF ( ABS < OIL ) .LT. ABS(Ql)) 01-01L 

GO TO 20 

65 Q1»X4*C0EF1*Q12(PSjP1) 

GO TO 20 
C 

C NEGATIVE LAPS* 

99 IF < X .LT. LAP1) GO TO 10 
Q1»X4*C0EF1*Q12{PS»P1) 

GO TO 20 

10 Q1-RCL*C0EF1*Q12(PS#P1) 

Q1L-Q34(PS>P1)/X2 
IF ( ABS COIL ) .LT. ABS(Ql)) 01-Q1L 
C 

C ************************* CALCULATE 03 **********************! 

20 X1-LAP3+X 

X3-S0RT(X1**2+RCL**2> 

IF (LAP3 .LE. 0.) GO TO 199 
C 

C POSITIVE LAPSi 

IF ( X .LE. -LAP3) GO TO 165 
Q3-RCL*C0EF3*Q12(P1»PR) 

Q3L«Q34tPl#PR)/Xl 

IF C ABS (Q3L ) .LT. ABS(03)) Q3-Q3L 

GO TO 120 

165 03»X3*COEF3*Q12<Pl»PP) 

GO TO 120 
C 

C NEGATIVE LAPSi 

199 IF ( X .GT. -LAP3) GO TO 110 
Q3«X3*C0EF3*012CP1#PR) 

GO TO 120 



A-31 


ORKHNAL PASS (3 
OF POOR QUALITY 

110 03-RCL*C0EF3*Q12(Pl,PR) 

03L-Q34(P1,PR)/X1 
IF ( AB S (Q3L ) .LT. ABS(Q3)) 03-03L 
120 RETURN 
FND 

*IDENT LIMITS 
^♦INSERT FL07E2.92 

♦DECK LIMITS 

SUBROUTINE LIMITS ( X, XDOT, XMAX,XMIN ) 

C 

C STATEMENTS FOR THIS SUBROUTINE OBTAINED BY PHONE BY 

C JOHN R. MCGEHEE ON 2/1/77. 

C 

IF C X ,GE. XMAX) GO TO 10 
IF ( X ,LE. XMIN ) GO TO 20 
GO TO 30 
10 X-XMAX 


IF ( XDOT .GT. 

0.0) 

XDOT 

» 0.0 

GO TO 30 




X-XMIN 




IF ( XDOT .LT. 

0.0) 

XDOT 

- 0.0 


30 RETURN 
I END 

' ♦IDENT GMMODS 

♦DELETE D81877.1,D81877.1 

DIMENSION TITLE! 20 ),BUF(550),NDIL(28),T8UF(550) 

♦DELETE PLTDAT.6, PLTDAT .6 

1 BHM(2,550),CMMDS(6),DEPVAR(5),LINE(7),NDVA(5) 

. ♦IDENT JMMODS 

♦OELETE ACTINIT.40,ACTINIT.65 
DATA ICOSV, IFSTOP, 11/11*0/ 

♦INSERT SDFLGP • 80 

DATA N19/19/ 

♦DELETE SDFLGP. 96, SDFLGP. 96 

IF(ISUMl.NE.O) WRITE!13) N19, ISUM1 ,DAT3, 0P17, ACOVARB (1 ) , 
1 AC0VAR8(4),AC0VAR4(5),AC0VAR1(4), AC0VARK5) 

♦DELETE SDFLGP. 105, SDFLGP. 105 

1 OMET (1,1 ) ,WFORT( 1 ) ,QSVCU(1 ) ,0$V ( 1 ) , PGA1T (1 ) , PGA2T(1 ) 
♦DELETE SDFLGP. 108, SDFLGP. 108 

1 0MET(1,2),WF0PT(2),0SVCU(2),0SV(2),PGA1T(2),PGA2T(2> 
♦DELETE SDFLGP. Ill, SDFLGP. Ill 

1 0MET(1,3),VF0PT(3),0SVCU(3),QSV(3>,PGA1T(3),PGA2T(3) 
♦DELETE SDFLGP. 114, SDFLGP. 114 

1 0MET(1,4),WF0PT(4>,0SVCU(4),QSV(4),PGA1T(4),PGA2T!4) 
♦DELETE SDFLGP. 117, SDFLGP. 117 

1 0MET(1,5),WF0PT(5),QSVCU(5),0SV(5),PGA1T(5),PGA2T(5) 
♦INSERT READ. 14 

! DATA ACTIVE /6HACTIVE/ 

'♦DELETE READ. 42, READ. 42 
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19 IFCSYM.EO. ACTIVE) 60 TO 805 
CALL DIPLAC(RA1, INC, BLANK) 
♦INSEPT READ. 183 

005 CALL ACTIN 
GO TO 100 
810 CALL ACTIN 
GO TO 802 * 

♦DELETE READ. 184, READ. 184 

26 IF(SYM.EQ. ACTIVE) GO TO 810 
IF(SYM.EO.STCASE) GO TO 21 
♦IDENT DIRACT 
♦INSERT DIR3DA.12 

♦DECK DIRACT 

BLOCK DATA DIRACT 
C0MM0N/ACTDIP/NAME(71),L0CC71) 


DATA NAME/ 

6HAMUH 9 

6HAPINT 9 

6HAREA1 9 

6HAREA2 

1 

6HAREA3 , 

6HAREM0 9 

6HARE03 9 

6HBETA 9 

6HBLMU 

2 

6HBUMU , 

6HCDM0C 9 

6HC0M0E 9 

6HCDSV 9 

6HCD3 

3 

6HCF FOR , 

6HDELT 9 

6HDI0TA , 

6HDSV 9 

6HEPSIL0j 

4 

6HEPSR0L, 

6HEPSSLP, 

6HETASV 9 

6HGAMAH 9 

6HGAMAN 

5 

6HGNR 9 

6HIDEACT, 

6HKAPT 9 

6H0MRUN 9 

6HPATM 

6 

6HPGAHAC, 

6HPGALAC, 

6HPGA1I 9 

6HPGA2I * 

6HPGA3I 

7 

6HPERCNT, 

6HQPUMPS, 

6HPCLSV 9 

6HRH0H 9 

6HTAUF 

8 

6HTC1 9 

6HTC2 * 

6HTC3 9 

6HTC4 9 

fcHVOLACIi 

9 

6HV0L ANI , 

6HV0L1I , 

6HV0L2I 9 

6HV0L3I 9 

6HWC 

1 

6HWC1 9 

6HVSV 9 

6HWSV1 9 

6HWSV3 9 

6HWLF0P 

2 

6HWL FORR, 

6HXBIAS 9 

6HXDDMAX# 

6HXDDMIN# 

6HXKA j 

3 

6HXKF 9 

6HXKSV 9 

6HXLPSV1* 

6HXLPSV3# 

6HXSC0M 

4 

6HXSTHP 9 

6HXSVDMN, 

6HXSVDMX 9 

6HXS VMAX» 

6HXSVMIN) 

5 

6HZETAC1, 

6HZETAC2/ 





DATA 

LOC/ 

1, 

6, 

16, 

21, 

26, 

31, 

36, 

61, 

46; 

1 

56, 

62, 

67, 

72, 

82, 

77, 

109, 

141, 

135, 

152; 

2 

157, 

162, 

163, 

195, 

200, 

201, 

212, 

263, 

274, 

275; 

3 

281, 

286, 

291, 

301, 

311, 

276, 

346, 

387, 

397, 

410; 

4 

411, 

412, 

413, 

414, 

621, 

631, 

421, 

431, 

441, 

451; 

5 

452, 

641, 

642, 

643, 

458, 

463, 

464, 

611, 

616, 

474; 

6 

7 

END 

♦IDENT 

479, 

644, 

ACTIN 

484, 

645/ 

489, 

494, 

561, 

499, 

591, 

596, 

601, 

606; 


♦INSERT READ. 194 

♦OECK ACTIN 

SUBROUTINE ACTIN 

COMMON/ ACTDIR/ XNAME (71 ),L0C(71> 

CQMMON/ACTI VE/ DATA ( 646 ) 

DIMENSION IRA(55),MSG(58),IDATA(646) 
EQUIVALENCE (MSG ( 1 ) , SYM ) , ( MSG ( 2 > ,0P ) 
EQUIVALENCE ( MSG( 3 ) , IR A ( 1 ) ) , ( MSG ( 5 8) , INC ) 
EQUIVALENCE (DATA Cl ), IDATA (1 ) ) 
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INTEGER COMMA# POINT# E# BLANK 

DATA R EM ARK # COMMA# BL ANK#POINT#E# EN DACT# MINUS# A INT/ 

1 3HREN,1R,,1R #1R»#1RE#6HENDACT#1R-#3HINT/ 

100 CONTINUE 

1 F0RMAT(A6#1X#A3#1X#55R1#I1) 

2 FORMAT (18X#A6# IX# A3#1X#55R1# Ifc) 

3 FORMAT ( 20H0ERR0R .THE SYMBOL »*#A6# 

1 26H** IS NOT IN THE DIRECT0RY/1H ) 

4 F0PMAT(44H0ERR0R. ILLEGAL CHARACTER IN NUMERIC FIELD ♦♦# 1P1# 2H+* /) 
PEAD( 5# 1 ) SYM#0P#IRA#INC 

CALL LINES(l) 

J - 38 

IF(INC.LE.O) J - 57 
WR ITE (6# 2 ) <M$G<I)#I-1#J) 

IFtSYM.EQ. REMARK) GO TO 100 
IF (SYM.EQ.ENDACT) GO TO 999 
DO 110 I-l#71 

IF(SYM.EQ.XNAHEU) ) GO TO 120 
110 CONTINUE 

CALL LINESC3) 

WRITE ( 6# 3 ) SYM 
GO TO 100 
120 CONTINUE 

INDEX ■ LOC(I) 

IF ( INC «E0 *0 ) INC - 1 

INDEX - INDEX ♦ INC - 1 

NUMEXP « 0 

NEXP - 0 

IEXP - 0 

NL ■ 0 

NR - 0 

NUML - 0 

NUMR - 0 

ISIGN ■ 0 

JSIGN ■ 0 

LEFT - 1 

DO 210 I«l# 56 

IF(I.EQ.56) GO TO 140 

IF(IRA(I).EQ. BLANK) GO TO 210 

IF(IRA(I).EQ. COMMA) GO TO 140 

IF(IRA(I) .EO. POINT) GO TO 170 

IF(IRA(I).EO.E) GO TO 180 

IF(IRA(I).EQ. MINUS) GO TO 200 

IF(IRA<I).GT.36) GO TO 130 

IF(IRACI).LT.27) GO TO 130 

NUM • IRA ( I ) - 27 

IFIIEXP.EO.l) GO TO 190 

IF(LEFT.GT.O) NUML ■ 10*NUML + NUM 

IF(LEFT.GT.O) NL * NL ♦ 1 
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IFCLEFT.LT. 0) NUMP • I0*NUMR ♦ NUM 
IFCLEFT.LT. 0) NR - NP + 1 
GO TO 210 
130 CALL LINES C3 ) 

WR ITE C 6# 4 ) IRA C 1 1 
GO TO 210 
140 CONTINUE 

IFCNL.EQ.O.AND.NR.EO.O) GO TO 210 
IFCNR.EO.O) GO TO 160 
X • FLOAT CNUHL ) + FLOAT C NUMR ) /10.**NR 
IF CJSIGN.EO.l) NUMEXP ■ -NUMEXP 
IFCIEXP.EO.l) X ■ X*C10. )**NUMEXP 
IFCISIGN.EQ.l) X » -X 
DATACINDEX) • X 
150 NUML - 0 
NUMR - 0 
NL ■ 0 
NR ■ 0 
LEFT ■ 1 
ISIGN ■ 0 
JSIGN ■ 0 
IEXP - 0 
NEXP ■ 0 
NUMEXP • 0 
INDEX • INDEX ♦ 1 
GO TO 210 
: 160 CONTINUE 
X ■ NUML 

IFC JSIGN. EO.l) NUMEXP • -NUMEXP 
IFCIEXP.EO.l) X • X*C10. ) **NUMEXP 
IFCISIGN.EQ.l) X - -X 
NUML - X 

IF COP .EO.AINT) IDATACINDEX) - NUML 
IF COP.NE. AINT) DATACINDEX) - X 
GO TO 150 
170 CONTINUE 
LEFT - -1 
GO TO 210 
180 CONTINUE 
IEXP - 1 
GO TO 210 
100 CONTINUE 

NUMEXP - 10+NUMEXP + NUM 
NEXP ■ NEXP + 1 
GO TO 210 
200 CONTINUE 

IF C IE XP.EQ.O) ISIGN « 1 
IFCIEXP.NE.O) JSIGN - 1 
210 CONTINUE 
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GO TO 100 
999 RETURN 
END 

♦IDENT CSCM0D2 

♦DELETE ACOBLK.ll,ACOBLK.ll 

8,FF0RT<5) , F WORK ( 5 ) ,F0NHST(5> ,F0RCHT(5> ,F0RSST(5) ,FST0P(5) 

♦DELETE AC0BLK.16,AC0BLK.16 

3# PERCNT 15) , PGAHAC (5) ,PGALACC5) ,PGA1I<5> ,PGA1T1(5) 

♦DELETE AC0BLK.31,AC0PLK.31 

9# WSV ,WSV1 , WSV3 , ZETAC1 ,7ETAC2 ,ZSSC(5) 

♦,IM0DE{5) ,CMASNG ,VMASS<5) 

♦DELETE EXE. 41, EXE. 41 

COMMON /HTCOM/ HT> HT1, HT2, INDINT(5) 

♦INSERT EXE. 280 

STOP "FLIGHT TIME LIMIT" 

♦DELETE MIMIN.8,MIMIN.8 

COMMON /HTCOM/ HT, HT1, HT2, INDINT<5> 

♦INSERT MIMIN.10 

C 

DO 10 1*1*3 
10 INDINT(I) « 1 
• ♦DELETE LGDET »9,LGDET .9 

COMMON /HTCOM/ HT, HT1, HT2, INDINT(5! 

♦DELETE LGEAR1.50,LGEAR1.50 

COMMON /HTCOM/ HT, HT1, HT2, INDINTC 5 ) 

♦INSERT LGEAR1.81 

DO 6 1*1# 5 
PC I > • 0.0 
6 P 2 1 1 ) ■ 0.0 
. ♦INSERT ACTINIT .35 

COMMON /HTCOM/ HT, HT1, HT2, INDINT<5) 

♦ DELETE ACTINIT .38# AC TIN IT. 39 

♦DELETE JMMODS.l, JMMODS.l 

EQUIVALENCE (DM15C16), GREFF), (DM1 <37>,AIYYBS) 

C 

DATA DSTOP, FSTOPK /0. 004, 0.0/ 

DATA ENUP,FSTOP,HMM,QSVN,RESA,SA /30+0.0/ 

DATA ICOSV, IFRI,IFSTOP,IPASS /20^0/ 

DATA IOPCO, ISET /10+1/ 

DATA IXSVH,IXSVL,IIXSVH, IIXSVL /2040/ 

C 

♦INSERT ACTINIT. 75 

OMPUN-ERDEG+O. 01745329 
♦DELETE ACTINIT. 76, ACTINIT. 77 

♦INSERT ACTINIT. 80 

INDINT ( I ) • 1 

- ♦DELETE ACTINIT. 127, ACTINIT. 127 

PGAlTim-PGAlim 
♦INSERT ACTINIT. 140 
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VMASS(I)»AMASS 

♦DELETE ALGEAR. 32, ALGEAR. 33 

! ♦GQD2(20),DDM20(20),DDM21(20),$LEN1 ( 5 ) , SL EN2 ( 5 ) , 

♦GAMA,DUM15(12),INDNWS,DDM22(10),ETADES, 

♦DELETE ALGEAR. 54, ALGEAR. 54 

COMMON /HTCOM/ HT, HT1, HT2, INDINT(5) 
j +DELETE ALGEAR .71, ALGEAP .76 

! EQUIVALENCE (DM5 ( 16 >, GREFF ), (DM2 ( 27 >, AXP7F ), (DM2 ( 28 ), AX77F ), 

♦(DM2(29),AYP7F),(DM2(30), AY77F ) ,(DM2(31),AZP7F),(DM2(33) , AZ77F ) 
♦(DM1(37),AIYYBS) 

I DIMENSION INDEACT(5),IPSTOP(5),AIC (5),PGA1T(5) 

DATA AIC*INDEACT,IP$TOP /5+0. 0,10+0/ 

♦INSERT ALGEAR.96 

C CMASNG » AIYYBS/AMASS+AMASS*RX(1)+RX(1)/AIYYBS 

CMASNG • 7.9677 
VMASS(l) • AMASS/CMASNG 
ENCG ■ 0.5*AMASS*ZG77F1(1)*ZG77F1(1) 

ZDANT - ZG77F1(1)-QI77P+RX(1> 

♦DELETE ALGEAR .102,ALGEAR.103 

C 

| 18 DO 90 I«1,NSTRUT 

! IF(INDEACTd).EQ.l) GO TO 56 

| IF(INDEACT(I) .EQ.2) GO TO 80 

♦INSERT ALGEAR. 105 

IFd.EQ.l .AND. ZDANT. GE.VELDEC) GO TO 90 
♦INSERT ALGEAR. 108 

IFd.EQ.l .AND. ZDANT, GE . VELDEC+XG77F1 (1 )*TAN (OMRUN ) ) GO TO 90 
♦DELETE ALGEAR. Ill, ALGEAR. 113 

INDEACT ( I ) *1 

56 IFdNDINT(I).EO.O) GO TO 58 
WLFOR(I)*WLFOR(I>-REDSLP(I)*HT 
EP$ILO( I )»EPSILO(I ) +EPSSLP+HT 

58 CONTINUE 
INDINT (I ) «0 

i +DELETE ALGEAR. 117, ALGEAR. 117 

INDEACT (I )*2 

♦DELETE ALGEAR. 122, ALGEAR. 125 

' C**+ CALCULATION OF THE WING-GEAR INTERFACE FORCE (VFORT) 

UNSPRNG ■ 0.0 

DO 66 J-1,NSTRUT 

IF(0METD1(J).NE. 0.0) UNSPRNG ■ UNSPRNG+MASS ( J ) 

66 CONTINUE 

DWFORT »(-SQRT(AXP7F*AXP7F+AYP7F*AYP7F+ 

€ AZP7F+AZP7F) +GREFF ) ♦ ( AMASS— UNSPRNG ) 

WFORT(l) - DWF0RT+F0RSST(1) 

DO 67 I*2,NSTRUT 

WFORTd) • DWFORT/ ( NSTRUT-1 ) 

67 CONTINUE 
C 
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DO 65 I-1»NSTRUT 
C 

C*** 

♦ DELETE ALGEAR .129, ALGEAR .129 

PGA1T(I)-PGA1T1 (I ) 

IF(PGA1T1(I).LE.-1600.0) PGA1TI I )■ -1600.0 
♦DELETE ALGEAR. 134, ALGEAR. 134 

PGA2T(I)«AP2T0(I)*((V0L2I(I)/V0L2T(I))**GANA)-PATM 
♦DELETE ALGEAR. 152, ALGEAR. 153 

j IF<IHODE(I).EQ.O .AND. ODELTA < I ) . L E .0 .0 ) 112,113 

112 00 ( 1 ) ■ 0.0 
GO TO 100 
C 

113 Q0(I)*C0EF0(I)*(AREN0{I)-APINT(I))*Q1(PGA1T1(I),PGA2T(I)) 
! IF(00(I).LT.0.0 .AND. VCUN ( I ) .LE .0 .0 ) GO TO 102 

AIC (I ) "0.0 
GO TO 103 

102 IF(PGA1T1(I).LT.PGA2T(I) ) GO TO 103 
GO TO 111 

in oom-o.o 

VCUM(I)-0.0 

Aicm-i.o 

103 IF(QOd).GT.O.O) AIC(I)»0.0 

♦DELETE AL GEAR .177, ALGEAR .177 

IF ( IMODEC I ) .EQ.O) GO TO 297 
♦DELETE ALGEAR. 179,ALGEAR. 180 

GO TO 289 

♦DELETE ALGEAR. 188, ALGEAR. ie8 

284 IF(S(1,I).LT.0.0) GO TO 160 
GO TO 161 

160 IPSTOP { I ) «1 

161 IF(S(1,I) .LE.DSTOP .AND. IPSTOP( I) .EO.l) GO TO 900 

♦DELETE ALGEAR. 190, ALGEAR. 190 

900 IF(S(1,I).LE. 0.005) GO TO 903 

I ♦DELETE ALGEAR. 195, ALGEAR. 199 

IPST0P(I)-0 

♦DELETE ALGEAR. 215, ALGEAR. 215 

901 IF(PGAlT(I).LE.(PGAlI(I)+500.0) .AND. 

» PGAlT(I).GT.(PGAlim-500.0)) GO TO 158 
GO TO 159 

158 IF(ABS(FT(I)).LE.FORCHT(I) .AND. S (1, I ) . EO.O.O) GO TO 500 

159 IF(S(1,I).GE.0.0) GO TO 470 

I ♦OELETE ALGEAR. 225, ALGEAR. 225 

i IF(IMODEU).EQ.O) GO TO 297 

♦DELETE ALGEAR. 227, ALGEAR. 228 

♦INSERT ALGEAR. 293 

297 12 » 2*I+N$TRUT-1 
II ■ 12+1 

CALL INTEG(LA(I2),SD2(1,I)) 
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CALL INTEG(LAtIl)#SDl(l»I)) 

C 

IF<IMODE(I).EO.O> GO TO 450 
♦DELETE ALGEAR. 295#ALGEAR. 296 

IF(I.NE.l) GO TO 119 

ENUP<1) » 0»5*AIYYBS*0I77R*QI77R+CENCG/CMASNG)* 

♦ (ZG77F1(1)/ABS(ZG77F1(1) ) ) 

GO TO 120 

! 119 ENUPU) • ENCG / (NSTRUT— 1 ) 

120 CONTINUE 

♦ DELETE AL GEAR *300* A LG EAR .300 

IF(WF0RT(I).GE.0.0 .OR. DDELTA ( I ) . LT.O .0 ) XSTOT ( I ) »1 .E20 
♦DELETE A L GEAR . 302# A L GEAR • 303 

ZSSC(I)»FHORKCI)+SB(I) 

IF ( XSTOT( I ) .LE . ( ZSSC ( I )-S ( 1# I ) ) .OR. RES A C I ) . EO.l .0) SACI)«1.0 
♦DELETE ALGEAR. 307# ALGEAP.307 

C 

VELDEC" ( ( WLFOR I I ) +WLFORR ) /2 •* ( WLFOR ( I )-WLFORR ) ) / 

E ( AMASS*REDSLP(I) ) 

♦DELETE ALGEAR. 342#ALGEAR. 342 

PS(I)«C( (PGAHAC(I)+PATM)*(VOLANI(I)/VOLANT(I) )++GAMA )-PATM ) /144 ,0. 
♦DELETE ALGEAR • 360# ALGEAR • 361 

♦DELETE ALGEAR .371# ALGEAR .376 

14 ■ I+4^NSTRUT 

15 ■ I+5+NSTPUT 

CALL INTEG(LA(I4)#00(I)) 

CALL INTEG(LA(I5)#GSV<I> ) 

19 ■ I+94NSTRUT 

CALL INTEGCLA (I9)#DLTX1D ( I ) ) 

♦DELETE ALGEAR. 414# ALGEAR .417 

♦DELETE ALGEAR. 516* ALGEAR .516 

♦DELETE ALGEAR. 519#ALGEAR. 521 

IF ( INODE ( I ) • EQ.O .AND. DDELTA < I ) .L E. 0. 0) GO TO 19 
! IF C S ( 1> D.NE.0.0 .OR. AIC(I).NE.I.O) GO TO 20 

PGAlTim-PGAlHI) 
i PGAIT(I) -PGAII(I) 

I 19 DPI (I )-0.0 
♦DELETE ALGEAR .539# ALGEAR .546 

13 ■ I +3*NSTRUT 
CALL INTEGUA(I3)#DP1<I>) 

16 - 3*I+6*NSTPUT-2 

17 • 16+1 

18 - 16*2 

CALL INTEG(LA( I6)#XSVDDD( I)) 

CALL INTEGIL A { 17)# XSVDD 1 1 ) ) 

CALL INTEG<LA<I8)#XSVD0TM)) 

♦DELETE FLEX1.25#FLEX1.25 

! COMNON / HTCOH/ HT# HT1# HT2# INDINT(5) 

♦OELETF CSCN0DS.32#CSCM0DS.32 _ 
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DATA(AC0VAP1(I)#I»1#8 ) /5HV0L1T# 5HVQL 2T# 5HV0L3T, 6HPGA1T1# 5HPGA 2T# 
♦DELETE CSCM0DS.35#CSCM0DS.35 

♦ 6HF0RCHT#5HVMAS$#6HF0NHST/ 

♦DELETE JMMODS.5#JMM0DS.5 

1 0MET(1#1)#WF0RT(1)#QSVCU(1)#Q$V(1)#PGA1T1(1)#PGA2T(1) 

♦DELETE’ JMM0DS.6#JMM0DS.6 

1 0MET(1,2)#VF0RT(2),0$VCU(2)»0SV{2)#PGA1T1(2)#PGA2T(2) 

♦OELETE JHM0DS.7#JMM0DS.7 

1 0MET(1#3)#WF0PT(3)#CSVCII(3)#0SV(3)#PGA1T1(3)#PGA2T(3) 

♦DELETE JMMODS.8#JMMODS.8 

1 0MET(1#4)#VF0PT(4)#0SVCU(4)#0SV(4),PGA1T1(4)#PGA2T(4) 
i ^DELETE JMM0DS.9# JMM0DS.9 

1 0MET(1#5)#WF0RT(5)#QSVCU(5)#Q$V(5)#PGA1T1(5)#PGA2T(5) 

♦DELETE CSCMODS.53#CSCMODS.53 

CALL ST0VAR(8#V0L1T(I)#V0L2T(I)#V0L3T(I)#PGA1T1(I)#PGA2T(I)# 
♦OELETE CSCM0DS.59,CSCM0PS.59 

♦ F0RCHT(I)#VMA$S(I)#FONHST(I) ) 

♦DELETE CSCK0DS.1OO#CSCMODS.1OO 

CALL UPDAT(1#LA(I1)#PGA1T1(I)#DU#DU#DU#DU) 

♦DELETE ACTIN.4#ACTIN.5 

COMMON /ACTIVE/ DATA(656) 

DIMENSION IRA ( 55 ) # MSG(58)# IDATA(656) 

♦DELETE PACK • 3* PACK ,3 

*| DIMENSION 11(6) 

♦DELETE DIRACT.8#DIRACT.9 

4 6HEPSR0L# 6HEPSSLP# 6HETASV # 6HFW0RK #6HGAMAH # 

5 6HGNR # 6HKAPT # 6H0MRUN # 6HPATM # 

♦DELETE DIPACT. 18#DIRACT. 18 

5 6HZETAC1# 6HZETAC2# 6HIM0DE / 

♦DELETE DIRACT.21#DIRACT.21 

2 157# 162# 163# 170# 195# 201# 263# 274# 275# 

I ♦DELETE 0IRACT.26#DIRACT.26 

7 644# 645# 651/ 

♦IDENT EOR 
♦IDENT EORPL 

♦INSERT CTENGL.65 

i+DECK EORPL 
1 ♦WEOR 

♦ IDENT C SCM0D3 

♦DELETE CSCM0D2.4#CSCM0D2.4 

♦ # IMODE( 5) #CMASNG #VMASS(5) # ZDANT 

• ♦INSERT EXE. 42 

. ! COMMON/TABDIR /TABLE (800) 

COMMON/READI /DUM1 (64 )#JBC#INXO 
i COMMON /UPDCAL/ NUM # P( 90)#Y( 90) 

J C0MM0N/LGDE/LA(50)#FC2(5)#P2(5)#PRES(5)#C(5)#IPPT#LTPT 

COMMON/STGT/ICOUNT# KCOUNT# LOC AIN (4 )# LOCADE (4 1 
COMMON/TABCOM/LOCS (115)# STABLE (115 ) 

C0MM0N/CLEAUP/I2#CLEAN#INTEG 
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C0MM0N/ST0RA/ARG(48) jALIST(8) jGETARG(8 > jNENTjLENTjK 
COMMON/LGE/AU(5)jA13(5)jA31(5)jA33(5) jPPCGX(5)j 
CPL(3j3)jRI(3j3j5)jRAX( 5) jRAY(5)jRAZ(5 ) jTMP(3)jZZER0(5)j 
CXR(5)jYR(5)jEPSL0N(5)jPA(5)jFPELTA(5)j 
CFTRZ(5)jRDX(5)jRDY(5)jPDZ(5)jRDXG(5)jPDYG(5)jRDZG(5)j 
CVTX(5)jVTY(5)jVTZ(5)jGZ(5)j VGPT { 5 ), FTR X ( 5 ) j FTRY ( 5 )j 

CDX(5) jOY(5)jDZ(5)jFT(5)jFDX(5) jFDY(5),FF(5)jAA(5)jC2(5)j 
CSR( 5) jSF(5) jPSKD(5 ) jMUVP(5)jNTRX(5)jNTRY(5)j 
CNTRZ(5)jMA(5)jRG11jRG13jRG31jRG33j IPRTj 
CNTXjMTYjMTZjSFTRXjSFTRYjSFTRZjFTRAj 
CFTRBjFTRCjSMTRXjSNTRYjSMTRZ 
CONMON/ACTDIR/NAMF(71)jLCC(71) 

♦INSERT C11778 • 22 

DATA NCASE /10H / 

♦INSERT SDDM0DS.4 

DATA PGA1T1jPGA2TjOSVjOSVCUjWFQRT /25+0.0/ 

♦INSERT LGEA3C.47 

♦CALL ACOBLK 

♦DELETE CSCM0D2.44jCSCM0D2.45 

CMASNG • l+(AMASS*RX(l)+RX(l) )/AIYYBS 
♦INSERT CSCM0D2.62 

UNSPR ■ 0.0 

♦DELETE CSCN0D2.65jCSCM0D2.65 

IFU.EQ.l .AND. QNETDl(l).NE.O.O) UNSPR • NA$S(l) 

IF ( J • GT.l .AND. OMETDl(J).NE.O.O) UNSPRNG - UNSPRNG+MASS ( J ) 
♦DELETE CSCNQD2.69jCSCH0D2.69 

WFORT(l) - SR(1)*(VMASS(1 ) -UNSPR ) 

♦DELETE CSCM0D2.125jCSCN0D2.125 

S (VMASS(l)^REDSLP(I)) 

♦DELETE CSCM0DS.44jCSCN0DS.44 

! OATA(ACOVAR7(I)j I-lj8) /6HVELDECj 6HWLF0RR j 5HZDANTj4HZSSC j4HC0P Aj 

.♦DELETE SDFLGP.80jSDFLGP.80 

♦INSERT C82477.63 

IF(IABS(INDLG).NE.3) 110jll5 
110 IF (ISUM1.NE.0) WRITE(13) N14j I SUN1 jDAT3j 0P17 
GO TO 120 
115 CONTINUE 
♦INSERT JMM0DS.4 

120 CONTINUE 
♦INSERT C82477.64 

IF(IABS(INDLG) .NE.3) 210j220 
■ 210 CONTINUE 

IF(ISTPLl.NE.O) WRITE (13) FT (1 ) j SF ( 1 ) j DELTA( 1 ) j P (1 ) jP2 { 1 ) jHA (1 ) j 
♦SD2(1j1)jSD1(1j1)jS(1j1) jS2D2(ljl) j S2D1 ( 1 j 1 ) j S2 { 1 j 1 ),0HETD1 ( Ij 1 ), 
♦OMET(ljl) 

IF ( ISTPL2 .NE .0 ) WRITE(13) FT<2 ) j SF ( 2 ) j DELTA (2 ) , P (2 ) j P2 { 2 ) , MA ( 2 ) j 
♦SD2(1j2)jSD1(1j2)jS(1j2)jS2D2(1j2)jS2D1(1j2)jS2(1j2)jOMETD1(1j2)j 
♦ OMET( lj 2) 

IF(ISTPL3.NE.0) WRITE (13) FT(3) jSF ( 3 ) j DELTA ( 3) j P ( 3 ) jP2 ( 3 ) jMA ( 3 ) j 
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♦SD2(1j3)jSD1(1j3)j$(1j3)jS2D2(1j3)jS2D1(1j3)j$2(1j3 ) j 0METD1 (1 j 3 )j 
♦0MET(1j3) 

IF(ISTPL4.NE.O) WRITE (13) FT( 4)j SF ( 4 ) j DELTA (4 ) j P ( 4 ) jP2 ( 4 ) j HA ( 4 ) * 
♦SD2(1j4)jS01(1j4)jS(1j4)jS2D2(1j4)jS2D1(1j4)jS2(1j4)j0METD1(1j4)j 
♦0MET(lj4) 

IF(ISTPL5.NE.O) WRITE (13) FT ( 5 ) j SF { 5 ) j DELTA ( 5 >j P ( 5 ) j P2 ( 5 )j MA ( 5 ) j 
♦SD2(1j5)jSD1(1j5)jS(1j5) jS2D2(1j5) j$2D1(1j5)jS2(1j5)jOMETD1(1j5)j 
♦OMET( 1*5) 

GO TO 230 
220 CONTINUE 
♦INSERT CSCH0D2.153 

230 CONTINUE 

♦DELETE CSCM0DS.93/CSCN0DS.93 

CALL ST0VAR(8jVELDECjWLF0RRjZDANTj7SSCjC0PAjSIPAjDST0Pj 
♦IOENT CSCM0D4 
♦DELETE AC0BLK.12jAC0BLK.12 

9jGAMAH(5) jGAMAN jGNR jHMM(5) jIC0$V(5) jINITSW 

♦DELETE AC0BLK.13jAC08LK.13 

♦ j I FR( 5 ) jIIXSVH( 5) jIIXSVL ( 5) jI0PC0(5) jIPASS(5) jISET(5) 

♦DELETE AC0BLK.22jAC0BLK.22 

COMMON /ACTIVE/ TC3 jTC4 jVCUM(5) jENCG jV0L1I(5) 

♦DELETE CSCM0D3.1jCSCM0D3.1 

♦ j IMOD E ( 5 ) jCMASNG jVPASS(5) jZDANT j INDEACT(5 ) j VELDEC 

' ^DELETE EXE.175jEXE.175 

IFfTIME .LT. TMAX ) GO TO 413 
♦DELETE EXE.286 jEXE.286 

STOP "EXECUTIVE ROUTINE" 

♦INSERT JMMODS.l 

DIMENSION S (2j 5 ) 

EQUIVALENCE (SI (1) j S(ljl ) ) 

EQUIVALENCE ( DM15 ( 1 ) j ITO ) 

♦DELETE CSCM0D2.21 jCSCM0D2.21 

DATA ICOSVjIFRjIFSTOPjIPASS / 20^0 / 

♦INSERT CSCM0D2.25 

IN ITS W ■ 1 

♦INSERT CSCM0D2.28 

INDEACT(I) - 0 
IF(ITO.EO.l) INDEACT(I) ■ 2 
♦DELETE ACTINIT.143jACTINIT.143 

CALL ALGEAR 

♦DELETE ALGEAR. 70jALGEAR. 70 

EQUIVALENCE ( DM15 ( 1 )j ITO ) 

♦DELETE ALGEAR. 93jALGEAR. 93 

c 

IF(INITSW.EQ.l) GO TO 16 
.♦INSERT ALGEAR. 98 

C 

CALL LGEA3C 
• C 




♦DELETE CSCNOD2.50*C$CP002.50 

18 CALL ACTNC- 
C 

DO 27 4 I-2#NSTPUT 
♦DELETE CSCHOD2.53*C$CPOD2.53 

♦DELETE CSCMOD2.54*CSCNOD2.54 

♦DELETE CSCM0D2.62,CSCN0D2.72 

♦DELETE CSCM0D2.74>CSCN002.74 

♦ OELETE ALGEAR. 182#ALC-EAR. 182 

801 IF(SD1<1*I).LE.0.8 .AND. IFR(I).EQ.O) C-0 TO 2 
♦DELETE ALGEAR.187* ALGEAR .187 

IFR<I) - 1 

♦DELETE AL GEAR .200# A LG EAR .201 

! ^DELETE ALGEAR. 212#ALGEAR. 212 

IFPCI) - 0 

! +DELETE ALGEAR.257#ALGEAR.258 

! ♦DELETE ALGEAR. 275#ALC-EAR. 276 

♦OELETE CSCM0D2.114,CSCN0D2.117 

i ADELETE C$CM0D2.119,CSCM0D2.119 

♦DELETE C$CM0D3.29*CSCf<0D3.29 

€ VMASS(I)*REDSLP(in 
♦INSERT ALGEAR • 370 

C 

DO 65 I-lfNSTRUT 

♦DELETE ALGEAR • 513# ALGEAR , 513 

16 CONTINUE 
INITSV - 0 

♦DELETE ALGEAR . 523* ALGEAR .525 

i ♦DELETE CSCH0DS.48,CSCH0DS.48 

DATA< AC0VAR9CI)# I»l*8> /6HXSVDD0# 5HXSVDD# 6HXSVD0T* 2HPR> 3HIFR* 
♦DELETE JHM0DS.2#JMH0DS.2 

DATA N20 /20/ 

♦DELETE JKM0DS.3#JMN0DS.3 

IF ( ISUN1 .NE.O) WRITE(13) N20, I SUM1> DAT3» 0P17# ACOVAR 8 ( 1 ) t 
| ♦INSERT JHN0DS.4 

2#AC0VAR3( 31 

! +INSERT CSCM0D2.149 

2# FORS ST ( 1 ) 

♦INSERT CSCM0D2 .150 

2# FORSST (2 ) 

♦INSERT CSCM0D2.151 

2#F0RSST ( 3 ) 

♦INSERT CSCH0D2.152 

2,F0RSST<4) 

♦INSERT CSCN0D2 .153 

, 2# FORS ST C5 ) 

! ♦DELETE CSCM0DS.78#CSCN0DS.78 

! CALL STOVAR (8#XSVD0DCI)>XSVDD(I)/XSVD0T(I)#PPCI)>FL0AT(IFR(I))» 

♦IDENT ACTNG 
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{♦INSERT ALGEAR.549 

♦DECK ACTNG 

SUBROUTINE ACTNG 
C 

********************** p 4 70 LA VARIABLES ♦♦♦*♦♦♦♦♦♦♦*♦♦♦♦♦♦♦*♦♦*♦******> 
C 

C0NM0N/DIPC0M/DM1(115>*ALPHD#DM1A(20>#AMASS#DM2(147),DCL1,DCM1* 

C DCNl#DCL2#DCM2,DCN2*DCL3*DCN3>DCN3#DN3(99)#FXB7P> 

C DUM4(3)#FYB7P(4)fFZ87P*DM5{17).»GXR7F*DM6(8)#GZB7F# 

C 0N7(218),IND$TE(48),PHIPD>INDSTE1 (23 ) > PSIPD, INDSTE2 ( 156 ), THTPD* 
C INDST£3(5)#TINE*0M8{287)#PI77R(2)jPI77R1(2)#DM9{4)j> 

C 0I77R (2) # 0I77R1 (2)#DN10(4)#RI77R(2)#RI77R1(2)#DM11(48)> 

C XG77F (2 ) # XG77F1 (12)#YG77F(2)#YG77F1(12)> 

C ZG77F(2)j>ZG77Fl(2)>DUH13(52)# 

C NSTRUT#MASS(5)#RX(5)#RY(5)#R7(5)#THETAD(5)#ERDEG#RGR# 

C NTIRES(5)#RZER0(5)»V(5)#DELTAH(5)*M0MENT(5)# 

C RF (5 ) >VZ »IFD,PZER0(5)#V7ER0(5)>A(5),P20(5) # V20(5}> 

C A2(5)#IL*S2T(5)>ES2{5),C2Lm,MA$S2(5),MUSm* 

C CC<5)*CE(5)*C2C(5),C2E(5)*NVGPT*NPP#MR(5)>RLT#NDELTA> 

C ES(5),SR(5)#S021(2)*SD22(2)#SD23{2)#SD24(2>,SD25<2) 

C 

COHM0N/DIRCOM/ 

C SDll(2)#SD12(2)#SD13<2)>SD14(2)>SD15(2), 

C S1(2)*S$2(2)*S3(2)#S4(2)#$5(2)> 

C S2021(2)*S2D22(2),S2D23(2)fS2D24(2),S2D25(2), 

C S2Dll(2)*S2D12(2>,S2D13(2)#S2D14(2)*S2D15(2)> 

C S21C2)#S22(2),S23(2)#S24(2)>S25{2)> 

C ONTO 11 (2)#0MTD12(2).»0MTD13{ 2 )#0MTD14 ( 2)#DHTD15(2)* 

C 0MT1(2)*0MT2(2)#0MT3(2)*0MT4{2)*0MT5{2)* 

C AI(5)#8im#DELTAl#DELTA2*DELTA3,DELTA4,DELTA5* 

C DDELTl,DDELT2,DDELT3j DDELT4,DDEIT5, ISTAGE* 

C PRTMIN,IPLT,I$DF#ISTPL1#ISTPL2,ISTPL3*ISTPL4,ISTPL5* 

C DM14(22>>IB(5)>0N15(127),INDLG#DN16(107),CA$K(44)>INDFLX* 

♦ NMOD E# DM18 ( 40) , SXMOD ( 100 SYNOD ( 100), SZMODC 100)# DM19C1686)* 

♦ GQD2<20),DDM20<20),PD»21(20)>SLEN1<5)*SLEN2(5), 

♦ GAMA*0UM15(12)#INDNWS*DDK22(1O)jETADES* 

♦ DDM23(5)*AH(5)#PH(5)#DDN24(30) 

C 

C0HM0N/LGDE/LA(50)*FC2(5)#P2(5)#PRES(5)#C(5),IPPT#LTPT 

C 

C0MM0N/LGE/A11(5)#A13(5)#A31(5)#A33(5)#RRCGX(5)» 

C PL<3#3>,RI(3,3,5),RAX(5>,RAY{5>,RAZ(5>,TNPm*ZZER0(5), 

C XR(5)*YR(5)#EPSL0N(5)#PA(5)#FDELTA(5)» 

C FTRZ(5)»RDXC5)*POY(5)*RDZ(5)#RDXG(5)>RDYG(5)#RDZG(5)> 

C VTX(5)#VTY(5)*VTZ(5)#GZ(5)# VGPTC5 )*FTPX{5)*FTRY(5>, 

C DX(5)#DY(5)#DZ(5)#FT(5)#FDX(5)»FDY(5)#FF(5)#AA(5)#C2(5)j 
C SR(5)*SF(5)iPSKD(5)#NUVP(5)*KTRX(5)/MTRY(5)# 

C MTRZ(5)#MA{5)#RGll*RG13#PG31*PG33*IPRT# 

C HTX»MTY*NTZ>SFTRX,SFTRY,$FTRZ*FTRA> 
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C FTRB* FTRC#SMTRX,SMTPY,SMTPZ 
C 

COMMON /HTCOM/ HT* HT1, HT2> INDINT(5) 

C 

♦CALL ACOBLK 
C 

PEAL MASS*MOMENT,MASS2>MUS*NTIRES,MB 
REAL MUVP*MTRX,MTRY,MTRZ#MA,MTX,MTY,MTZ 
C 

DIMENSION IPST0P<5),AIC(5)>PGA1T<5) 

DIMENSION DELTA(5),DDELTA<5)#DLGDE(47)# 

♦ SD2(2,5),SD1(2,5)>S<2»5) 

C 

EQUIVALENCE C D L GO E < 1 ) # L A C 1 > I 

EQUIVALENCE ( DELTA ( 1 }, DELTA1 >#( DDE LTA ( 1) , DDELT1 ) 

EQUIVALENCE ( SD21 (1 ) t SD2 C 1*1 ) ) » (SD11 ( 1 ) , SD1 ( 1# 1 ) ), t SKI ) *S (1# 1 ) ) 
EQUIVALENCE ( DM15 1 1 ) , ITO ) 

EQUIVALENCE ( DM5 C 16) , GREFF ), 

♦ ( DM1 ( 37) > AIYYBS ) 
i C 

DATA AIC* IPSTOP /5*0.0>5+0/ 

i C 

' 01(T1#T2)-SIGN(1.,(T1-T2))+S0PT(ABS(T1-T2)) 

I c ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦’ * 

! c 

! I - 1 

S c 

j IFdNDEACT(I).EQ.l) GO TO 56 

! IFdN0EACTd).EQ.2) GO TO 80 

IF(HMMd) .EQ. 0.) GO TO 90 
IF ( OMRUN .GT. 0.0)G0 TO 25 
IF (ZD ANT. GE. VELD EC > 90, *0 

25 IFC7DANT • GE • VELDEC+XG77F1 (1)*TAN(0MRUN)) GO TO 90 
40 WRITE(6>1014)TIME 

1014 FORMAT (1H036H REDUCE CONTROL LIMIT FORCE AT TIME-#E16.8) 
INDEACTd )■! 

56 IF(INDINTm.EO.O) GO TO 58 
WLFORCI)«VLFOR(I)-REDSLPd)*HT 
EPSILO(I)«EPSILOd) +EPSSL P*HT 
58 CONTINUE 
INDINT (I ) *0 

IF ( WL FOR (I ) .GT. WLFORR ) GO TO 90 
WRITE (6>1015)TIME 

1015 FORMAT (1H027H CONTROL AT WLFORR AT TIME->E16.8) 

INDEACTd >-2 

80 WLFOR ( I ) "WLFORR 
! EPSILOd) “EPSROL (I ) 

90 CONTINUE 

£***************************************♦♦** **♦*♦*♦ ****** ************ I , 
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IF(KAPT(I).NE.0)G0 TD 210 
APTNT (I )»0.0 
210 CONTINUE 

PGA1T(I)»PGA1T1(I) 

IF(PGA1T1(I).LE. -1600.0) PGA1TU ) —1600.0 
V0L1T(I)-V0L1I(I)-(APEA1(I)-APINT(I) )*S(1>I) 
V0L3T(I)-V0L3I(I)+AREA3(I)*S(1>I) 

V0L2T(I)»V0L2I(I)-(APEA2( I )-APEAl (I ) *A PINT ( I ) ) *S ( 1# I ) ♦ ( V0L3T( I ) 

X —VOL 31(1))— VCUM(I) 

PGA2T(I)-AP2T0(I)*( ( V0L2I ( I ) /V0L2T ( I ) ) **GAMA )-PATM 
IF (SOI (1# I ) .EO. 0 .0 ) GO TO 104 

! PGA3T(I)»((C0EF3(I)*ARE03d) ) **2*PGA2T ( I )-SDl ( 1* I ) /ABS ( SD1 ( 1# I ) ) 

X *(SD1(1*I)*AREA3(I) ) **2 ) 

E/((C0EF3(I)*ARE03(I))**2) 

GO TO 105 

! 104 PGA3T(I)-PGA2T(I) 

105 IF(PGA1T(I) .GE. PGA2T(I))G0 TO 106 
GO TO 107 

106 GAMAH ( I ) »PHOH*GREFF* ( 1.0+(PGA1T(I) *3. 04E-08 )— 

♦ ( PGA IT ( I )**2*2.72E-15) ) 

GO TO 108 

107 GAMAH(I)-RH0H*GPEFF*(1.0+(PGA2T(I)*3.04E— 08)- 

♦ ( PGA 2T( I ) *+2*2 .72 E— 15 ) ) 

108 IF ( PGA1T ( I ) .GE. PGA2T ( I ) ) COEFO ( I ) « 

* C0M0C(I)*SQRT(ABS(2.*GREFF/GAMAH(I)) ) 

IF(PGA2T(I) .GT. PGA1TCZ ) )COEFO(I )• 

* CDM0E(I)*SQRT(ABS(2.*GREFF/GAMAH(I))) 

IF ( IMODE ( I ) .NE.O .OR. DDELTA ( I ) .GT .0.0 ) GO TO 113 
00 ( 1 ) • 0.0 
GO TO 109 
C 

113 Q0(I)-C0EF0(I)*(AREM0(I)-APINT(I))*Q1(PGA1T1(I)*PGA2T(I>) 
IF(Q0(I).lT.0.0 .AND. VCUM (I ) .IE .0 .0) GO TO 102 
AIC (I )»0.0 
GO TO 103 

102 IF(PGA1T1(I).LT.PGA2T(I) ) GO TO 103 
00(I)-0.0 

VCUM(I)-0.0 
AIC (I )*1.0 

103 IF(QOd).GT.O.O) AIC(I)-0.0 

| 109 IFf PG A2T( I ) .LE. -1600. 0)PGA2T(I)— 1600.0 

! IF (PGA3T (I ) .LE. -1600.0 ) PGA3T(I )— 1600.0 

' | IF (DELTA (I ) .LE. 0.0 .AND. TIME .GT. DELT1G0 TO 101 

GO TO 110 

I 101 FF0RT(I)-0.0 

GO TO 140 
110 CONTINUE 

C COMPUTE STRUT AXIAL BINDING FRICTION FORCE 
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8LF0RTd)-F0NHSTd>*( ( SLEN2d >-S (1 d >) / < SL EN1 ( I ) +S ( 1, I ) ) +1 . 0 ) 
BUF0RTd)«F0NHSTd)*tSLEN2d)-Sd> I) )/($LENl( I)+S(1>I)) 
FF0RTd>-BUMUd)*ABS(BUF0PTd))+BLMUd)*A8S{BtFaRTdn 
140 CONTINUE 

C COMPUTE SHOCK STRUT CHARGING FORCE 

IF(S(1#I) .GT. 0 . 0 ) GO TO 142 

F0RCHTd)-PGAlTd)*AREAld)+PGA2Td)*(AREA2d)-AREAld>>-PGA3T(I) 
X *AREA3d)+FF0RTd)+CFF0Pd> 

C COMPUTE NORMAL AND AXIAL HUB TO SHOCK STRUT FORCES AT HUB 
142 FONHSTd)»SCRT(FDXd)**2 + FDYd)**2)-MASSd)*GREFF*SIPA + SBFOT 
I F ( ABS {FT ( I ) ) .LE. FORCHTCI) .AND, S Cl# 1 1 .EQ. 0.0)G0 TO 150 
GO TO 801 
150 CONTINUE 

FORSSTd)-FT(I) 

SDKl # I ) «0.0 

IF(IMODEd).EQ.O) GO TO 297 
ISTROK d 1*1 
GO TO 289 

C COMPRESSION VELOCITY OF SHOCK STRUT IS POSITIVE 
801 IF(SD1(1#I).LE.0.8 .AND. IFP(I).EO.O) GO TO 2 
GO TO 3 

2 DMTANHd ) »1.0 
GO TO 284 

3 DMTANHCI)»ABS(TANH(2.0*SD1(1#I))) 

IFPCI) - 1 

284 IF(SUd).LT.O.O) GO TO 160 
! GO TO 161 

160 IPSTOPCD-1 

161 IF<SUd).LE. DSTOP .AND. IPSTOP (I ) . EO . 1 ) GO TO 900 
GO TO 902 

900 IF (S ( 1# I ) .LE.0.005) GO TO 903 
C-0 TO 904 

903 SD2 Cl# I )*0»0 
SDl(l>I)-0.0 

Sd»I)-0.0 ‘ 

IPSTOP (I )-0 
GO TO 902 

904 CONTINUE 

IF ( IFSTOP (I) .NE. 0 )G0 TO 906 
DSTOP* S (1# I ) : < ■ '■ ' [ 

FST0PK»2. 0*MASS (I ) *SD1 Cl# I )**2/DST0P**2 
906 IF < S C l# 1 » .LE, DSTOP/ 2 ,0 ) GO TO 908 
FSTOP ( I ) •-FSTOPK* (DSTOP-S ( 1# I 1 ) 

GO TO 909 

j 908 FSTOPdJ— FST0PK*S(1#I) 

909 IFSTOPCD-1 
IFR(I) - 0 

GO TO 901 ’ ’ 

902 FSTOP d)-0.0 ’ 
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901 IF(PGAlTd).LE.<PGAlId)+500.0) .AND. 

i PGAlTd).GT.(PGAlId)-500.0) ) GO TO 158 
GO TO 159 

158 IF(ABS(FT(I) ) . L E . FORCHT d ) .AND. S ( 1, I ) . EQ .0.0 ) GO TO 500 

159 IF (S( 1» I ) .GE.O.O) GO TO 470 
XFtSDl(l#I) .LT. 0.0)G0 TO 470 
GO TO 471 

470 FFORT ( I )--FFORTd ) 

CFFOR d)— CFFOPd) 

471 FOR$STd)--d PGAITt IJ-PGA2T d))*(AREAld)— APINTd)) 

£ + PGA2Td )*AREA2d) 

X -PGA3Td)*AREA3d) + (FF0RTd) 

1 ♦CFFORCI) ) *DMTANH{ I)+FSTOP(I)) 

500 IF ( INDFLX.GE. 1 ) GO TO 295 

IF(INODEtl).EQ.O) GO TO 297 
ISTROK ( I ) *1 

289 IF ( S( 1# I ) .GT. 0.0) GO TO 295 
IFdOPCOd) .EQ. 1) GO TO 295 
IFC(PGAlId)— lOOO.O.LT.PGAlTdJ.AND. 

£ PGAlTd).LT.(PGAlId) + 1000.0))299,298 

299 IF ( XVALVE ( I ) .NE. O.OGO TO 311 
IF ( IP ASS ( I ) .EO. 1)G0 TO 296 
XVALVE (I) •XKSVm+XMAlim + XBIASU) 

! IPASSCD-l 

| GO TO 294 

298 IFflCOSVm .EO. 1 )G0 TO 291 
I0PC0d)-0 

I IF(XSV(I) .LT. 0.002 .AND. XSVCI) .GT. -0.002)291,295 

; 291 IF(SD2(1,I) .LE. 0.0 .AND. ICOSVCI) .EO. 1 )G0 TO 311 

IF < IOPCOd ) .EO. 1 ) GO TO 295 
! IF(PGAlTd) .LE. PGA1I (I ) ) GO TO 293 

IF ( IXSVL ( I ) .EO. 1 ) GO TO 294 
XVALVE d) -XVALVE d)+XSVDHNd)*DELT*PERCNTd) 

IF ( XVALVE (I ) .GT. -0.1) GO TO 294 
XVALVE(I)— 0.1 
IXSVL d )-l 
i GO TO 294 

293 IF(IXSVHd) .EO. 1)G0 TO 294 

XVALVE d> -XVALVE d)+XSVDNXd)*DELT*PERCNTd) 
i IF ( XVALVE d ) .LT. 0.1) GO TO 294 

XVALVE( I) -0.1 
IXSVH(I)-1 

294 CONTINUE 
DLTX1D (I ) -0.0 

] IC0SV(I)-1 

296 IF(WFORTd) .GT. 0.0 .AND. S(lil) .LE. 0.0)G0 TO 410 
j 311 IF(NAC(I) .EO. 1 ) GO TO 307 
\ IF ( II XSVHC I ) .EO. 1)G0 TO 305 

I XVALVE(I)-XVALVEd)+XSVDHNd)*DELT4PERCNTd) 
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IF (XVALVE (I ) .LE. 0.0)305,400 
305 XVALVE ( I ) -0.0 
IIXSVH(I)«1 
GO TO 400 

307 IF ( II XSVL { I ) .EQ. 1 )G0 TO 308 

XVALVE (I) -XVALVE (I) ♦XSVDPXm*DELT*PERCNT(I) 

IF ( XVALVE ( I ) .GE. 0.0)308,400 

308 XVALV E ( I ) -0.0 
IIXSVL(I)-1 

400 CONTINUE 

410 IF ( XVALVE <11 .NE. 0.0)G0 TO 295 
] JC0SV(I)-0 

! 0ELTX1(I)-DELTX(I)*XKF(I) 

! XMA(I)-(DF(I)+DELTX1(I))*XKA(I) 

XHA11 (I)-XMA(I) 

XSV(I)«XKSV(I)*XNA11U)+XBIAS(I> 

CALL LIHITS(XSV(I),XSVOOT(I),XSVNAX(I),XSVNIN(I)) 

IPASSCD-0 
IXSVL ( I ) -0 
IXSVH ( I ) -0 
IIXSVLtl )-0 
IIXSVH(I)-0 
I0PC0(I)»1 

CALL PHL0Z2(PS(I),PR(I),XSV(I),QC(I),XLPSV1 { I ), XLPSV3(I) ,RCLSV < I )', 
f DSV(I),CSV1(I),CSV3(I),XHU,QT0LER,NITER,P1(I),QS1CI),0S3(I)) 

C 

295 IF ( ISTROK (I) .EQ. 1 .AND. 5(1,1) .GT. 0.0) IOPCO ( I ) -0 
297 12 - 2*I+NSTRUT-1 
II • 12+1 

CALL INTEG(LA(I2),SD2U,I>> 

CALL INTEG{LA(I1),S01(1,I)) 

C 

IF(IHOOE(I).EQ.O) GO TO 450 
C 

ENUP(l) - 0.5*AIYY8S*0I77R(1)*QI77R(1)+(ENCG/CHASNG)* 

* ( ZG77F1 (1)/A8S(ZG77F1(1))) 

IF (HMM ( I ) .EG. l.OJGO TO 130 
SA ( I) -0. 

IF<VFORT(I).LT.O.) XSTOT(I) -ENUP C I ) / ( (-VFORT ( I ) )*COPA ) 

IF(WFORTCI) . GE.0.0 .OR. DOELTA(I).LT.O.O) XSTOT (I )-l,E20 
C ZSSC IS A PERCENTAGE OF SB(I) FOR ACTIVATING CONTROL-CDHOC ( I ) IS U 
ZSSCC I )-FWORK( I)*S8(I) 

IF ( XSTOT (I).LE.(ZSSC(I)— S(1>I)) .OR. RESA(I) .EO.l.O) SA(I)-1.0 
RESA( I )-SA( I ) 

IF ( SA ( I ) • EO.O. .OR. HMHm.EO.l.) GO TO 130 
VLFOR(I)— VFORT(I) 

C 

VELDEC-((VLF0R(I)+WLF0RR)/2.*(VLF0R(I)-WLF0RR) )/ 
j 6 (VMASSfU + REDSLPCIJ) 
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WRITEC6* 121) TIME* VLFOR Cl )*VELDEC 

121 FORMATC 50H ACTIVE CONTROL INITIATED...TIME* VLFOR* VELDEC ■ * 

1 3E13.5) 

HMM (I ) *1 » 

130 IFCSC1*I) .GT. 0.0 ) ISETCI ) "0 
IFCHMMCI) .EO.O.) GO TO 451 

IFC-WFORTCI).GT.CWLFORCI)+EPSILOCI))) DF ( I ) ■ ( VLFOR ( I )♦ 

£ EPSILOCI))-C-WFORTCI)) 

IFC-WFORTCI).LT.CWLFORCI)-EPSILOCI))> OF < I ) • ( VLFOR ( I)- 
£ EPSILO(I) ) — C-WFORTCIH 
IFC**WFORTCI).LE.CWLFORCI)+EPSILOCI)).AND. 

£ -WFORTCD.GE.CWLFORCD-EPSILOCI))) 

* 457*456 

457 IFCSC1*I) .LE. 0.0) GO TO 456 

IFCWFORTCI) .GT. 0.0 .AND. OSVCUCl) .LT. 0.0)454*455 

454 DFCI)«WLFORCI )— C—WFORT (I ) ) 

GO TO 456 

455 DF (I) "0.0 

456 DELTXCI)*SC1*I)— XSCOMCI) 

IF(S(1*I) .LE. 0.0 .AND. ISETd ) .EO. 0)G0 TO 451 
GO TO 452 
451 DF (I) »0, 

DELTX (I )»0. 

. 452 XMACI)*CDFCI)+DELTX1CI)) 1 *XKA(I) 

IFCGNR.EQ.l. .AND. XMA C I ) .GT.O. ) XMACI)- 
l XMACI)*SQRTC CPGA1T C I J-PGALAC (II) 

X / ( PGA MAC CI)-PGAIT(I))) 

NOTE* SUBROUTINE »FL0ZE2* COMPUTES THE FLOWS FROM THE PRESSURES 
IN UNITS OF INCHES. 

P1(I)-PGA1T(I)/144. 

C COMPUTATION OF HIGH PRESSURE ACCUMULATOR NITROGEN VOLUME 
C AND ACCUMULATOR PRESSURE 

VOL ANTCI ) -VOL ANTd ) +QSVN C I ) *DELT-0 PUMPS (I ) +DELT 

P$CI>»CCCPGAHACCI)+PATM)*CV0LANICI ) /VOLANT Cl ) )**GAMA )-PATM)/144 .0 
IF CPS (I ) .GE. 3000.0)464*465 

464 PS (I) *3000.0 
VOLANT.CI ) “VOLANI (I ) 

465 VOLAHTCD-VOLACId)-VOLANT(I) 

IF (VOLAHT d ) .LE. 0.0)466*467 

466 WRITE (6*1050)TIME 

1050 FORMA TCI HO //45H ACCUMULATOR OIL VOLUME INSUFFICENT AT TIME»*E16.8 
| 1 //) 

CALL LGEAR6 
STOP 500 

467 CONTINUE 

CALL FL0ZE2CPSCI)*PRCI)*PlCI),XLPSVlCI)*XLPSV3CI)*RCLSVCI)*DSVd)* 
S XSVCI)*0S1CI)*QS3CI)*CSV1CI)*CSV3CI)*XMU) 

QSV1CI)-QS1CI)/1728. 
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0SV3< I)-0S3d>/1728. 

C 

450 CONTINUE 

QSV<I)»0SVld)-QSV3d) 

IF(QSVd) .LT. 0.0)NACd)«l 

IF(QSVd) .GT. 0.0)NAC(I)-2 

j IF(NACd) .NE. 2) GO TO 462 

1 OSVNd)-QSV(I) 

GO TO 463 

462 QSVN(I)-0.0 

463 IF<S01d,I).LT. 0.0 • AND • PGA1T (I ) . LE . -1600.0 ) PGA1T (I ) —1600.0 
C 

RETURN 

END 

♦ IDENT CSCM0D5 
j*OELETE AC0BLK.7,AC0BLK.7 

! 4, ALGDUM1 ,C0EF0(5) ,C0EF3<5> ,COPA 

♦DELETE CSCM0D4.1,CSCM0D4.1 

9,GAMAH(5) , ALGDUM2 ,GNR ,HMM(5) ,IC0SV(5) ,INITSW 

♦DELETE CSCM0D4.4,CSCM0D4.4 

*» INODE ( 5) ,CHASNG ,VNASS(5> , ZDANT , INDEACT (5 ) , VELDEC ( 5) ' 

1,C OEF 1(5) , LMODE < 5 ) 

♦DELETE CSCM0D4.5,CSCM0D4.5 

IF(TPD.LT.TMAX) GO TO 413 
♦DELETE NIMIN. 114, MININ. 114 

| IF ( (XF-XO).GT.l.E-lO) GO TO 211 

'♦DELETE CSCM0D3.21,CSCN0D3.21 

♦DELETE ACTINIT. 33, ACTINIT. 33 

*,0DM21{20),$LEN0UNd0),GANA,DUM15< 12), IN0NWS,DDM22 UO), ETADES, 
♦DELETE ACTINIT.35,ACTINIT.35 

i ♦DELETE CSCM0D2.22,CSCM0D2.22 

j DATA IOPCO, ISET,ISTROK,NAC /10*1,10*0/ 

; ♦INSERT CSC M0D2 • 23 

DATA INDEACT, INDINT, INITSW /5+0, 5*1,1/ 

DATA FFORT, FONHST, FORCHT, FORSST, WFORT /25*0.0/ 

DATA QC,Q0,QSV1,QSV3,QSVCU,QT0LER /25*0., 0.0001/ 

DATA DC0N,DMTANH,0F,DP1,DELTX,DELTX1,DLTX1D /6*1. 0,25*0.0/ 
i DATA XSVDOT, XSVDD, XSVDDD /15*0.0/ 

! DATA REDSLP,SBFOT,VCUM, VELDEC /5*100000.,0., 10*0.0/ 

DATA XMA1,XMA2,XMA3,XMA4,XMA6,XNA7,XMA9,XMA10 /40*0.0/ 

DATA XNA,XMA5,XMA8,XMA11 /20*0.0/ 

! *OELETE ACTINIT. 71, ACTINIT. 71 

♦DELETE ACTINIT. 73,ACTINIT. 75 

♦DELETE CSCM0D4.il, CSCN0D4.il 

♦DELETE ACTINIT.80,ACTINIT.82 

♦DELETE ACTINIT. 87, ACTINIT. 105 

♦DELETE ACTINIT. 107, ACTINIT. 108 

♦DELETE ACTINIT. 110, ACTINIT. 115 

COEFld) • CDSVd)*SQRT<2.*GREFF/GAMAHd>)*144. . 



CSVl(I) » COEFl ( I )*WSV1 
CSV3(I) • COEFl ( I ) ♦ WSV3 
♦DELETE ACTINIT. 118, ACTINIT. 118 

OSVl(I) - 0.0 
0SV3( I ) - 0.0 
IF(ITO.EO.l) GO TO 60 
IF(IMODE(I).EQ.O) GO TO 80 
C 

♦INSERT ACTINIT ,126 

GO TO 80 
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C 

J 60 CONTINUE 

HNN(I) • 1.0 
INDEACTd I • 2 
LNODE ( I ) • INODE ( I ) 

INODE (I) ■ 0 

I AP2T0 ( I ) • PGA2IID+PATM 

VOLIT(I) • V0L1I(I>-(AREA1(I)-APINT(I))*S(1,I) 

V0L3T { I ) - V0L3I(IH-ARFA3m4S(l,I) 

V0L2TCI) - V0L2I(I>-(AREA2(I)-AREA1(I)+APINT(I>)+S(1,I) 
I . +(V0L3T(I ) -VOL 3 1 ( I ) )-VC UN (I ) 

'I PGA2I ( I ) ■ AP2T0(I)*((V0L2I(I>/V0L2Tm>44GAHA)-PATM 

PGAII(I) • PGA2KI) 

PGA3MI) • PGA2KI) 

FOPSST (II - -(PGA2I(I)4AREA2(I)-PGA3I(I)*AREA3(I) 

. ♦DMTANH(I)4(FF0RT(I)*CFF0R(I))+FST0P(I)) 

VFORT(I) - FORSSTCI) 

C 

80 CONTINUE 

• ♦DELETE ACTINIT .130# ACTINIT .130 

♦DELETE ACTINIT. 132, ACTINIT. 132 

♦DELETE ACTINIT. 135, ACTINIT. 139 

♦DELETE CSCH0D4.12,CSCH0D4.13 

♦OELETE CSCN0D4.14,CSCM0D4.14 

| CALL ALGEAR1 

j ♦INSERT ALGEAR.69 

■ EQUIVALENCE (DNS (79), XCGR F ) 

♦DELETE CSCH0D2.42,CSCN0D2.43 

DIHENS ION IPST0P(5),AIC(5),PGA1T(3) 

DATA AIC,IPSTOP /5*0.0,5*0/ 

♦DELETE CSCH0D3.24,CSCM0D3.24 

RXCG1 • RX(1)-XCGRF 

CHASNG - 1+(ANASS*RXCG1*RXCG1 )/AIYYBS 
•♦DELETE CSCN0D2.48,CSCN0D2.48 

7DANT - ZG77F1 (1)— QI77R(1)*RX(1) 
i+DELETE CSCN0D4.21,CSCN0D4.21 

18 CONTINUE 

♦INSERT CSCN0D4, 22 

UNSPRNG ■ 0.0 
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C 


C 


DO 22 I»1#NSTRUT 

IFdTO.EO.l .AND. TINE. GE. 2.0) IMODECI) - LMODE ( I ) 
IF(OMETDICI).NE.O.O) UNSPRNG • UNSPRNG+MASS d ) 

22 CONTINUE 

DWFORT - C-SQRT(AXP7F*AX P7F+AYP7F + AYP7F + AZP7F + AZP7F ) +GREFF ) * 
. (AMASS— UNSPRNG) 


CALL ACTNG 


C 

♦INSERT CSCMOD4.23 

i C 

i WFORTCI) ■ DWFORT/ (NS TP UT—1) 

! c 

♦DELETE ALGEAR.106#ALGEAR.106 

IF(ZG77F1(1).GE.VELDEC(I)) GO TO 90 
♦DELETE ALGEAR.108#ALGEAR.108 

25 IF(ZG77F1(1).GE.VELDEC(I) +XG77F1 (1)4TAN(0MRUN)) GO TO 90 
♦DELETE ALGEAR.256#ALGEAR.256 

♦DELETE ALGEAR.261#ALGEAR.261 

296 IF(VF0RT(I).GT.0.0 .AND. S ( 1# I ) .LE .0.0 ) GO TO 400 
i *OELETE ALGEAR .274#ALGEAR.274 

I 400 CONTINUE 

i ^DELETE ALGEAR .277# ALGEAR .277 

| IF(XVALVE(I).NE.0.0) GO TO 295 

! *DELETE CSCH0D2.113#CSCM0D2.113 

IFCIMODE(I).NE.O.O) C-0 TO 119 
OSVl(I) - 0.0 
0SV3CI) ■ 0.0 
GO TO 450 

♦DELETE CSCM0D2.124fCSCM0D2.124 

VELDEC ( I ) ■ ( ( WLFOR ( I )+WLFORR ) 72 •♦ ( WLFOR ( I )-WLFORR ) ) / 
i ♦OELETE CSCM004.27#CSCM0D4.27 

. (VHAS$(I)*REDSLP(I) ) 

♦DELETE ALGEAR. 308# ALGEAR. 308 

WRITE (6# 121) TIME# WLFOR ( I )# VELDEC (I) 

♦DELETE ACTNG. 60#ACTNG. 60 

. $D2(2#5),SD1(2,5)#S(2#5)#0METD1(2#5) 

♦DELETE ACTNG. 62»ACTNG. 62 

EQUIVALENCE (OLGDE (1 ) # L A (1 ) ), (0MTD11 ( 1 ) ,0METD1 (1# 1 ) ) 

! ^DELETE ACTNG. 80#ACTNG. 80 

IF ( ZD ANT. GE. VELDEC (I) ) 90#40 
I ^DELETE ACTNG. 81#ACTNG. 81 

i 25 IF (ZD ANT. GE. VELD EC (I )+XG77Fl(l )*TAN(OMRUN) ) GO TO 90 
! ♦INSERT ACTNG. 97 

UNSPRNG • 0.0 

IF (0METD1 ( 1 ) .NE .0.0) UNSPRNG • MASS(l) 

WFORT(l) ■ SR(1)*(VMASS( 1 ) -UNSPRNG ) 

♦DELETE ACTNG. 241#ACTNG. 241 
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296 IF(WF0RTtI).GT.0.0 .AND. S<1> I) .LE .0.0 ) GO TO 400 
♦DELETE ACTNG.255,ACTNG.255 

IF(XVALVEtl).NE.O.O) GO TO 295 
♦DELETE ACTNG.277*ACTNG.277 

IF(IM0DE<I).NE.0.0) GO TO 119 
0SV1CIJ • 0.0 
0SV3( I ) • 0.0 
GO TO 450 
119 CONTINUE 

♦DELETE ACTNG.292,ACTNG.292 

VELDECm » ((WLFOR(I)+WLFORR)/2.MWLFOR(I)-WLFORR))/ 
♦DELETE ACTNG.294#ACTNG.294 

WR ITE ( 6*121 ) TIME*VLFOR(I)#VELDEC{I) 

♦DELETE DEC0MP.4,DEC0MP.4 

COMMON /IPSCON/ IPS 
♦DELETE S0LVE.4*S0LVE.4 

| COMMON /IPSCOM/ IPS 

(♦INSERT AC TIN . 11 

C 


THE 100 LOOP PROCESSES DATA CARDS UNTIL ENDACT IS ENCOUNTERED 


ACTIN.17 


READ A DATA CARD 
ACTIN.22 


IGNORE REMARKS 

ACTIN.23 


TEST FOR END OF 
ACTIN.24 


♦INSERT 
C 

C 

♦INSERT 
C 

♦INSEPT 
iC 

♦INSEPT 
C 

C 

(♦INSERT 

;c 

jc 

♦INSERT 
C 

c 

♦INSERT 
C 

C SET INDEX TO ADDRESS 

C (INC ON DATA CARD) 

C 

♦INSERT ACTIN.34 


ACTIVE DATA 


LOOK FOR A MATCHING MNEUHONIC 
ACTIN.28 


NO MATCH FOUND 
ACTIN.30 

FOUND A MATCH « 
ACTIN.31 


IN ACTIVE AND CORRECT FOR OFFSET 
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INITIALIZE ALL FLAGS AND COUNTERS 
ACTIN. 44 


LOOP. SCANS DATA COLUMNS ON A SINGLE CARD 


ACTIN. 46 
X ^ACTIN #47 


COMMA SEPARATES NUMBERS 
ACTIN.48 


REAL NUMBER 
ACTIN.49 


SCIENTIFIC NOTATION 
ACTIN.50 


NEGATIVE - 
ACTIN. 51 


NON-NUMERIC CHARACTER 
ACTIN . 52 


ALPHABETIC CHARACTER 
ACTIN. 53 


CORRECT FROM DISPLAY CODE TO INTEGER DIGIT 

ACTIN. 55 

LEFT POSITIVE INDICATES NO OECIMAL POINT HAS BEEN FOUND 
ACTIN. 57 

LEFT NEGATIVE INDICATES A DECIMAL POINT HAS BEEN FOUND ■ 
ACTIN. 63 


OR END OF DATA CARD SIGNALS END OF NUMBER 


ACTIN. 66 

COMBINE LEFT AND RIGHT PORTIONS OF REAL NUMBER 
ACTIN. 70 


ORIGINAL i^S 
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c STORE IN ACTIVE BLOCK 

♦INSERT ACTIN.71 

C 

C RESET FLAGS AND COUNTERS 

♦INSERT ACTIN.83 

C 

C NO DECIMAL POINT FOUND 

♦INSERT ACTIN.86 

C 

C DATA GIVEN IN SCIENTIFIC NOTATION 

♦INSERT ACTIN.89 

C 

C INTEGER DATA 

♦INSERT ACTIN.90 

C 

c REAL DATA 

♦INSERT ACTIN.93 

C 

c SET FLAG TO SHOW A DECIMAL POINT WAS FOUND 

♦INSERT ACTIN.96 

I C 

ic SET FLAG TO SHOW SCIENTIFIC NOTATION 

j ♦INSERT ACTIN.99 

' C 


IC ACCUMULATE EXPONENT — 


♦INSERT ACTIN.103 

C 

C NEGATIVE NUMBER - 

♦INSERT ACTIN.104 

C 

C NEGATIVE EXPONENT 

♦INSERT DIPACT. 3 

C 

C 


C ACTIVE CONTROL DATA IDENTIFIED BY THE MTH MNEUMONIC 
C IN ARRAY NAME IS STOREO IN THE ACTIVE COMMON BLOCK 
C AT THE ADDRESS CONTAINED IN THE MTH WORD IN ARRAY LOC. 

C 

♦IDENT PINARY 

♦DELETE CSCM0D5.4,CSCM0D5.4 

1,C0EF1(5)#LM0DF(5),PINN<30),PINM<30),$TR0N(30)> 

2 STR0M(30) 

' ♦DELETE CSC MOD 3. 20#CSCM0D3.20 

COMMON/ AC TDIR /NAME (75)*L0C(75) 

♦INSERT CSCMOD5.21 

IFCKAPTm.EQil) GO TO 50 
APINTCI) • 0. 

IF (KAPT(I ) • EO.O) GO TO 50 
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IF(I.GT.l) GO TO 25 
STPOK ■ -I. 

DO 10 J»l# 29 

IF(STPONCJ). IT. STROK) GO TO 15 
STROK ■ STRON(J) 

IF<S(1#I).GE.STR0N(J).AND.$(1#I).LE.STP0N<J+1)) GO TO 20 
10 CONTINUE 
15 J - J - 1 
20 APINT(I) ■ PINN(J) 

GO TO 50 
25 STROK - -1. 

DO 30 J-1,29 

IF<STROM(J).LT. STROK) GO TO 35 
STROK ■ STROM ( J ) 

IF(Stl#I).GE.STROM(J).AND.S<l#I).LE.STROM<J+l)) GO TO 40 
30 CONTINUE 
35 J - J - 1 
40 APINTtl) ■ PINM(J) 

50 CONTINUE 

♦DELETE ALGEAP .126# AIGEAP *128 

♦DELETE ACTNG.99#ACTNG.101 

i *DELETE ACTIN.3#ACTIN.3 

C0MM0N/ACTDIR/XNAME(75),L0C<75) 

♦DELETE CSCM0D2.34,CSCM0D2.35 
COM MON/ ACTIVE/D AT A(802) 

DIMENSION IRA(55)#MSG(58)#IDATA(802) 

♦INSERT ACTIN.ll 

C 

C ZERO OUT PIN AND STROKE ARRAYS 

C 

DO 10 J-683#802 
DATA(J) • 0. 

10 CONTINUE 

♦DELETE ACTIN.13#ACTIN.13 

1 F0RMATU6#1X#A3#1X#55R1#I2) 

♦DELETE ACTIN.25#ACTIN.25 

DO 110 I»l# 75 

♦OELETE DIR ACT .3# DIR ACT .3 

C0MM0N/ACTDIR/NAME<75)#L0C(75) 

♦DELETE CSCM0D2.31#CSCM0D2.31 

5 6HZETAC1# 6HZETAC2# 6HIM0DE # 6HPINN # 6HPINM # 

6 6HSTR0N # 6HSTR0M / 

♦DELETE CSCM0D2.33#CSCM0D2.33 

7 644# 645# 651# 683# 713# 743# 773/ 

♦IDENT KLUGEZ 

♦INSERT LGEAR1.155 

C 

c********* 
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£***♦♦♦♦♦♦♦ TEMPORARY FIX TO FREEZE NOSE SECONDARY 
C 

IF(I.EO.l) GO TO 59 
C 

C ********** 

C 

♦IDENT SECFIX 
♦INSERT LGEAR1. 173 

S2 ( 1» I ) - -0.5*ES2(I) 

S2D1( 1# I ) - -l.E-10 
S2D2(1#I) • -l.E-10 
♦DELETE LGEAR1.183#LGEAR1.184 

61 IF(S2D2(l*I).LT.O.) GO TO 140 

IF($2Dl<l*I>.LT.O.) S2D1 (1*1) » 0. 

♦INSERT LGEAR1 .187 

S2D1( 1# I ) » 0. 

♦INSERT LGEA3C .109 

IF(TMP(l).LT.O.) WR ITE ( 6# 1234 ) I*S2(1*I)»S2D1(1#I)» 

1 S2D2(1#I> 

1234 FORMAT (IX# 7H*— ♦—♦—♦# I5#3E16.8) 

IF(TMP(1) .LT.O.) GO TO 31 
♦IDENT TABFIX 

♦DELETE LGEA3C.205#LGEA3C.205 

CALL HIH0(3»L0C(7)*NS2NDY#NSTRUT#DU#DU#S2(1#I)>FI#DU#DU#C21I)> 
♦DELETE LGEA3C.208#LGEA3C.208 

CALL HIHO(3#LOC(6)#NS2NDY#NSTPUT#DU#DU#S2(l#I)#FI#DU#DU#C2(I)) 
♦IDENT XSVMOD 

♦DELETE ALGEAR.224#AL GEAR. 224 

500 CONTINUE 
♦INSERT ALGEAR. 230 

XVALVE ( I ) - XSV(I) 

♦DELETE ALGEAR. 233#ALGEAR. 233 

299 CONTINUE 

IF(XVALVE(I).NE.O.) GO TO 311 
♦INSERT CSCM0D5.70 

XSV(I) - XVALVE ( I ) 

♦DELETE AC TNG .209# AC TNG .20 9 

500 CONTINUE 
♦INSERT ACTNG.213 

XVALVE ( I ) ■ XSV(I) 

♦DELETE ACTNG.216,ACTNG.216 

299 CONTINUE 

IF(XVALVE(I).NE.O.) GO TO 311 
♦INSERT ACTNG.254 

XSV(I) • XVALVEf I ) 

♦IDENT GENFIX 

♦DELETE REST.32#REST*32 

COMMON/XACTNG/AICX(5)#IPSTOX(5)#DM35(3) 

♦DELETE EXE .24# EXE.24 
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/♦ DM43 # IND VPC #DM44 ( 7)*NCASE 

♦DELETE SDDMDDS.l»$DDMODS.l 

54 DO 35 11-1*4059 
♦INSERT EXE.55 

NCASE • 1H 

♦INSERT XMAFIX.7 

REWIND 7 

♦DELETE C$CM0D6.4,CSCM0D6.5 

♦INSERT MIMIN.113 

DO 45 1-1*5 
45 INDIN T C I ) - 1 

♦DELETE DELTFIX.ll*DELTFIX.ll 

COMMON/XACTNG/AIC*IPSTOP,UNSPPNG# NIN# TIMEL 
♦IDENT OELTFXX 
♦INSERT CSCM0D5.48 

DATA TIMEL*NIN/0.*0/ 

♦INSERT ALGEAR.P3 

IF<NIN.EO.O> TIMEL - TIME 
NIN ■ 1 

DELT • TIME - TIMEL 
TIMEL ■ TIME 

♦DELETE DELTFIX.3#DELTFIX.5 

♦INSERT ACTNG.67 

DATA TIMEL*NIN/0.*0/ 

♦DELETE OELTFIX.13*DELTFIX.15 

IF(NIN.EQ.O) TIMEL ■ TIME 
NIN - 1 

DELT - TIME - TIMEL 
TIMEL - TIME 
♦IDENT M0D282 

♦DELETE REST.31#REST.31 

C0MM0N/XALGEA/AIC(5)#DM34C14)*IPST0P(5)#0M34X(12) 
♦DELETE XMAFIX.7# XMAFIX.7 

READt 7) (DMD1(IJ)#IJ-1*11081) 

♦DELETE XMAFIX.8#XMAFIX.8 

WRITE (7) (DMDl(IJ)* I J-l* 11081 ) 

♦DELETE REST.82*REST.82 

2 PGA1T# RXCG1#TTIME# UN$PRNG#NIN# TIMEL 
♦DELETE CSCM0D2.106*ALGEAR.217 

159 IF(SDl(l*I).LT.O.) GO TO 471 
♦OELETE AC TNG. 200* AC TNG .202 

159 IF<$Dltl*I).LT.O.) GO TO 471 
♦IDENT M0D296 

♦DELETE CSCM0D2.80*CSCM0D2. 80 

IF(IMODECI).EQ.O.AND.S(1*I).EO.O.) 112*113 
♦DELETE CSCM0D2.133*CSCM0D2.133 

♦OELETE ACTNG.126#ACTNG.126 

IF(S<l*I).GT.O..OR.IMODECI).EQ.l) GO TO 113 
♦IDENT REST1 
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♦DELETE PEST.35>REST#35 

C0MM0N/XAUTS/DM38(11) 

♦OELETE M0D282.2*H0D282.2 

READ( 7) {DMDKIJ)*IJ-1, 11084) 

♦DELETE M0D282.3#M0D282.3 

VRITE(7) {DMD1(IJ),IJ-1, 11084) 
i ♦DELETE REST.93,REST#93 

| 1 TMP2#TMP3#TMP5,DELTS,ERP0R#IPR 

! ♦IOENT M0D329 
♦INSERT MIMIN.17 

H - A MINI (HT*HT1#HT2*HT3) 

♦DELETE HTTRY.2,HTTRY#2 

♦DELETE CSCM0D2.131#CSCM0D2,132 

♦ INSERT ALGEAR #439 

DPI ( I ) - f-00{I)+QSVl(I)-0SV3(I) + (AREAl(I) - APINT CD) 
1 ♦SDl(ljI) ) *8 ETA /VOL IT (I ) 
IF(S(1#I).NE.0..0R.AIC(I).NE.1.) GO TO 64 
DPI ( I ) - 0. 

64 CONTINUE 

13 - I + 34NSTRUT 

CALL INTEG(LA(I3)#0P1(I) ) 

♦INSERT ALGEAR. 515 

IF(IM0DE(I)#EQ#0) GO TO 28 
♦DELETE ALGEAR #517# ALGEAR #51 8 

♦DELETE CSCM0D2.138>CSCH0D2.139 

19 » I +9*NSTRUT 
CALL INTEGCLA(I9)*DLTX1D(I)) 

♦INSERT CSCM0DS.102 

IF(IMODE(I).EO.O) GO TO 6 
♦IDENT H0D351 

♦INSERT M0D329.5 

PGA1T1 { I ) • PGA1KI) 

PGAIT(I) • PGA1ICI) 

♦IDENT M0D1029 

♦DELETE REST.14#REST.14 

C0MM0N/UPDCAL/DM14(201) 

♦DELETE REST #2 4* REST, 24 

C0MM0N/XMIMIN/DM26U008) 

♦DELETE CSCM0D3#4,CSCM0D3.4 

C0PM0N/UPDCAL/NUM*P(100)*Y(100) 

♦DELETE REST1.2,REST1.2 

READ( 7) (DMD1CIJ) * I J*l#11204 ) 

* ♦DELETE REST1.3*REST1.3 

WRITE (7) (DHD1(IJ)#IJ«1#11204> 

♦DELETE INUPD.5»INUPD#5 

C0MM0N/UPDCAL/NUM*P(100),Y(100) 

♦DELETE INUPp.6,INUPD#6 

IF (NUM+N #LE. 100) GO TO 5 
' ♦DELETE INUPD.9,INUPD#9 
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700 FOR MAT ( *0 NUMBER OF INTEGRATION VARIABLES EXCEEDS MAX LIMIT 100*) 

♦DELETE LNUPD.3#LNUPD.3 

COMMON/UPDCAL/NUM,P(100)>Y<100) 

♦OELETE INPUZ .3# INPUZ • 3 

COMMON/UPDCAL/NUM#P<100),YUOO) 

♦ DELETE INPUZ .5* INPUZ .5 

9 DO 10 I»l*100 

! *DELETE INTEG.3,INTEG.3 

C0MM0N/UPDCAL/NUM,P(100)*Y<100) 

♦OELETE UPDAT.4#UPDAT.4 

C0MM0N/UPDCAL/NUM#P(100)#Y(100) 

♦DELETE MIMIN.7*MIMIN.7 

C0MM0N/UPDCAL/N*P(100)*Y(100) 

♦DELETE MIMIN.9,MIMIN.10 

DIMENSION YMAX(100)jYO(100)*PO(100)j$(100)*YP(100)*Yl(100)* 

1 Z(100)#XK(100>3) 

♦DELETE LGDET.3#LGDET.3 

C0MM0N/UPDCAL/NUM,Ptl00)>Y<100) 

♦IDENT M0D1040 

♦INSERT AUTS.406 

DELQI ■ DELODE 
♦IDENT MODMIM 

♦OELETE MIMIN.173»MIMIN.173 

WRITER 6*701 ) HT,H 

701 FORMAT (* INTEG RTN. HT ■ *»E13.8»* H ■ *#E15.8) 

♦IDENT M001048 

♦DELETE AL GEAR .326# A LG EAR .326 

436 DELTX(I) ■ S(1#I)*12.0 - XSCOM(I) 

♦DELETE ACTNG.312#ACTNG.312 

456 DELTX<I) « S(1*I)*12.0 - XSCOM(I) 

♦IDENT M0D1103 

♦INSERT LGEAR1.156 

! C MODIFICATION TO ACCOMODATE SECONDARY PISTON OF F4 MAIN GEAR 
IF(S(l#I).LE.O.) GO TO 59 
IF(S(i#I).GE.SB(I)-(S2T(I)-S2(l#I))) 83>85 
i C SECONDARY PISTON IN CONTACT WITH ORIFICE TUBE 

83 IF(SDl(l*I)+l.£-4.GE.S2bia#I)> 84>85 

84 S2D1( 1* I ) - S01(1*I) 

S2D2( 1» I ) - SD2 ( 1# I ) 

| GO TO 60 

i 85 CONTINUE 
♦IDENT AERAT 
♦INSERT REST. 37 

COMMON/ AER0C0/DM4H 8) 

COMM0N/XAER0/DM42(2) 

♦DELETE M0D1029.4# M0D1029.4 

READ( 7) tDMDltiJ)#IJ* 1*11214) 

♦DELETE MOD 1029. 5* MOD 1029. 5 

WRITE C7) {DM01(IJ)*IJ-1* 11214) _ . . . 
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♦INSERT 0PT1.204 

! CALL AER04 

♦INSERT 0PT1.545 

SUBROUTINE AER04 
COHMON/DIRCOM/DM1(2)*X 
CONMON/TABCOM/LOCSI115)#ST(115) 

COMHON/TABDIR/TABLE { 800) 

C0WN0N/AER0C0/RTAB10(2)*RTAB80f2>, LTAB10(2),LTAB80<2) 

COMMON/XAERO/NIN.TIHEL 

REAL LTAB10*LTAB80 

DATA TIMEL>NIN/0.#0/ 

DATA R TAB 10# RTAB80>LTAB10*LTAB 80/8*0./ 

IFCNIN.EQ.O) TIMEL ■ X 
NIN ■ 1 

DELT ■ X - TINEL 
TIHEL » X 
IND1 ■ LOCS (45 ) 

IND2 • L0CS(114) 

ATAB11 • TABLE ( IND1 ) 

ATAB12 - TABLE ( IND1+1 ) 

ATAB81 « TABLE C IND2 ) 

ATAB82 ■ TABLE ( IND2+1 ) 

ATABll - ATAB11 + RTAB10I1 )*DELT 

ATAB12 - ATA812 ♦ RTAB10(2)*0ELT 

ATAB81 - ATAB81 ♦ RTAB80 d )*DELT 

ATAB82 ■ ATAB82 ♦ RTAB80( 2)*DELT 

IF(RTABIOM). GT.O.. AND. ATABll. GE.LTABlOd) ) 60 TO 40 

IFCRTABlOdl.LT.O. .AND. ATABll. LE.LTABlOdd 60 TO 40 

10 IF(RTAB10(2). GT.O.. AND. ATAB12.GE.LTAB10t2)) 60 TO 50 

IF(RTAB10(2).LT.0..AND.ATAB12.LE.LTAB10(2)> GO TO 50 

20 IF(RTAB80d>. GT.O.. AND. ATAB81.GE.LTAB80(1 ) ) 60 TO 60 

IF<RTAB80(l>.LT.0..AND.ATAB81.LE.LTAB80{in GO TO 60 

30 IF(RTAB80(2). GT.O.. AND. ATAB82.GE.LTAB80(2n GO TO 70 

IF(RTAB8O(2).LT.O..AN0.ATAB82.LE.LTAB8O(2) ) GO TO 70 

GO TO 80 

40 ATABll ■ LTAB10(1) 

RTABlO(l) - 0. 

GO TO 10 

50 ATAB12 - LTAB10C2) 

RTAB10I2) ■ 0. 

GO TO 20 

60 ATAB81 ■ LTABBOtl ) 

RTABSOd) • 0. 

GO TO 30 

70 ATAB82 » LTAB80C2) 

RTAB80(2) - 0. 

80 TABLE (IND1) • ATABll 
* TABLE < IND1+1 ) • ATAB12 

TABLE ( IND2) » ATAB81 
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TABLE ( IND2+1 ) • ATAB82 

RETURN 

ENO 

♦INSERT JMMODS • 11 

IF(SYM.EQ.6HRTAB10) GO TO 905 
IF (SYM.EQ.6HRTAB80) GO TO 905 
IF($YM.E0.6HLTAB10) GO TO 905 
IF(SYM.E0.6HLTAB80) GO TO 905 

♦INSERT JMM0DS.16 

905 CALL AEROIN ( SYM. RA ) 

GO TO 100 

♦INSERT READ. 19* 

SUBROUTINE AEROIN(SYMjRA) 

DIMENSION RA ( 55 ) 

C0MM0N/AER0C0/DATAX{8) 

DATA 0ATAX/8+0./ 

CALL LINES (1) 

WR ITE ( 6» 1 ) SYM# R A 

1 F0PMAT(18X>A6.5X»55A1) 

2 FOR MAT(*0ERR0R. ILLEGAL CHARACTER IN NUMERIC FIELD*>1R1>2H+*/) 
IF(SYM.E0.6HRTAB10) INOEX - 1 

IF CSYM.E0.6HRTA880) INDEX - 3 

IF(SYM.EO.6HLTA810) INDEX ■ 5 

IF ( SYM.EO .6HLTAB80) INDEX - 7 

NUMEXP • 0 

NEXP • 0 

IEXP » 0 

NL ■ 0 

NR • 0 

NUML ■ 0 

NUMR - 0 

ISIGN - 0 

JSIGN ■ 0 

LEFT • 1 

DO 210 I»l# 56 

IF ( I. EQ.56) GO TO 1*0 

IF t RA ( I ) • E0.1H ) GO TO 210 

IF(RA(I).EQ.1H») GO TO 1*0 

IF(PA(I).E0.1H.) GO TO 170 

IF (RA ( I ) • E0.1HE ) GO TO 180 

IF(RAd).EO.lH-) GO TO 200 

NUM « SHIFT(RA(I)#6) 

NUM • NUM .AND • 00000000000000000077 B 
IFCNUM.GT.36) GO TO 130 
IF (NUM.LT .27) GO TO 130 
NUM ■ NUM - 27 
IF(IEXP.EO.l) 60 TO 190 
IF(LEFT.GT.O) NUML - 10+NUML ♦ NUM 

IF ( LEFT.GT .0) NL - NL + 1 ... 
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IF (LEFT.LT .0) NUMR « 10*NUHR + NUM 
IF(LEFT.LT.O) NR - NP + 1 
GO TO 210 

i 130 CALL LINES (3 ) 

| WRITE € 6# 2 > R A ( I ) 

GO TO 210 

1 AO IF(NL .EO.O.ANO.NR.EQ.O) GO TO 210 
IF(NR.EQ.O) GO TO 160 

X - FLOAT(NUML) + FLOATC NUMR ) <(10. )**NR 
IF ( JS I GN • EQ.l ) NUMEXP - -NUMEXP 
IF(IEXP.EQ.l) X • X* ( 10» ) ♦♦NUMEXP 
IF(ISIGN.EQ.l) X « -X 
150 OATAX (INDEX) » X 
NUML ■ 0 
NUMR » 0 
NL • 0 
NR - 0 
LEFT ■ 1 
ISIGN - 0 
JSIGN - 0 
IEXP » 0 
NEXP » 0 
NUMEXP - 0 
INDEX - INDEX ♦ 1 
GO TO 210 
160 X ■ NUML 

IF(JSIGN.EQ.l) NUMEXP « -NUMEXP 
IF(IEXP.EO.l) X • X*(10* ) ♦♦NUMEXP 
IF(ISIGN.EQ.l) X - -X 
GO TO 150 
170 LEFT - -1 
GO TO 210 
180 IEXP - 1 
GO TO 210 

190 NUMEXP • 10*NUMEXP ♦ NUM 
NEXP - NEXP ♦ 1 
GO TO 210 

200 IF(IEXP.EQ.O) ISIGN » 1 
IF(IEXP.NE.O) JSIGN - 1 
210 CONTINUE 
RETURN 
END 

♦IOENT M0D2056 
♦ INSERT REST *42 

DATA DM41/8+0./ 

♦DELETE C$CM0D2.17#CSCM0D2.17 

r EQUIVALENCE ( DM5 (16 ) » GREFF ) » ( DM1 (37) » A IYYBS ) 

♦DELETE AERAT.64*AERAT.64 

.♦DELETE PIN ARY. 26# PI NARY. 2 6 
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COMMON / AC TDIR/XNAMEt 77)* LOCI 77) 

♦DELETE PINARY. 36*PINARY. 36 

DO 110 1-1*77 

♦DELETE PINARY. 37*PINARY. 37 

COHNON/ACTDIR /NAME 177 )*L0C<77) 

♦DELETE PINARY, B9*PINARY. 39 

6 6HSTR0N * 6HSTR0M * 6HPEDSLP* 6HDST0P / 

♦DELETE PIN ARY. AO* PINARY. AO 

7 6AA, 6A5* 651* 603* 713* 7A3* 773* 392* 140/ 

♦IDENT M0D2075 

♦DELETE M0D282.5*ALGEAR.219 

159 SIGX • 0. 

IF(SDlfl*I).£Q.O.) GO TO 471 
SIGX - SD1(1*I)/ABS(SD1(1*I)) 

♦DELETE AL GEAR .223* ALGEAR. 223 

1 + CFFOR (I) )*SIGX*DMTANH(I) + FSTOP(I)) 

♦DELETE M0D282.6*ACTNG.204 

159 SIGX ■ 0. 

IF(SDl(l*I).EQ.O.) GO TO 471 
SIGX • SD1(1*I)/AB${SD1(1*I}) 

♦OELETE ACTNG.208*ACTNG.208 

1 ♦ CFFOR(I) >*SIGX*DMTANH(I) ♦ FSTOP(I)) 

♦IDENT M0D2203 

♦ DELETE M0D282. 1* M0D282 *1 

♦DELETE GENFIX.l*GENFIX.l 

C0MM0N/XALGEA/AICm*DM34(14)*IPST0P<5)*DM34X<12)*DM34Y(5)* 

1 DM34ZC5)*DM34A(65) 

C0MM0N/XACTNG/AICX(5)*IPST0X<5)*0M35<3)*DM35X<5)*DM35Y(5)* 

1 DM357 (65 ) 

♦INSERT REST. 41 

DATA DM34 Y*DM34Z*0M34 A/5 *0.* 5*31000.* 65*0 • / 

♦INSERT REST.A2 

DATA DM35 X# DM35Y* DM35 Z/5*0.* 5*31000. *65*0 . / 

♦OELETE AERAT.3* AERAT .3 

READC7) (DMD1(IJ)*IJ»1*11364) 

♦DELETE AERAT.A*AERAT.A 

WRITE (7) (DMD1(IJ)*IJ»1*11364) 

♦INSERT M0D282.A 

3 ,1GE*RDSLP*ITRIP*ICU*IQCU*IXS*IA1*IA2,IA3,IA4* 

A IA6*IA7*IA9*IA10*IG0 
♦DELETE CSCH0D5.47*CSCM0D5.48 

DIMENSION IPST0P(5)*AIC(5)*PGA1T(5>*IGE(5)*RD$LP(5>*ITRIP(5)* 

1 ICU(5>*IQCU(5)*IXS(5>*IA1(5),IA2(5)*IA3(5>*IA4(5)* 

2 IA6(5)*IA7(5)*IA9(5)*IA10(5)*IG0(5) 

♦DELETE CSCM0D2.78*CSCM0D2.78 

IF(SD1(1*I) .LT. 0.0. AND. PGA1T1(I).LE. -1600.0 >PGA1T( I)— 1600.0 
IF(ITRIP(I).EQ.1)G0 TO 101 
♦DELETE ALGEAR. 172*ALGEAR. 172 

i IF(ABS(FT(I)).LE.F0RCHT(I).AND.S(1*I).LE.ES(I))G0 TO 150. 
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♦ DELETE ALGEAR.175*ALGEAR.175 

FORSSTCI)— FT(I) 

♦ DELETE CSCM0D2.94*C$CM0P2.94 

IFCIMODECI).Ea.O.AND.SCl#D.LT.E$CD)GO TO 421 
♦OELETE ALGEAR.17e,ALGEAR.178 

♦DELETE CSCM002.95#CSCM0D2.95 

♦ DELETE CSCM0D4 .24* CSCM0D4. 24 

801 IFCSCl#I).GT.ESCI))ISTROKCD«l 

IFCS01Cl»I).LE.O.8.AND.IFPCI).EQ.0)G0 TO 2 
♦INSERT ALGEAR.184 

IFRCI)-0 

♦DELETE CSCM0D2.105*CSCM0D2.105 

158 IFCABSCFTCI)).LE.FORCHTCD.AND.SCl#D.LE.ESCD)GO TO 500 
♦DELETE CSC MOD 2. 107# CSC MOD 2 §107 

IFCIMODECI).EQ.O)GO TO 421 
♦DELETE ALGEAR.226*AIGEAR.226 

IFCSC1*I).GT.E$CI))287*289 
287 ISTROK C I) “1 
ICU(I )«0 
IQCUCD-0 
IXSCD-0 

C THE FOLLOWING LOGIC RETURNS THE GEARS*DURING REBOUND# TO INITIAL 

C CONDITIONS IN THE EVENT THE GEAR CONTACTS THE SURFACE BEFORE 

C THE LOGIC BETWEEN STATEMENTS 226 AND 421 IS FULLY EFFECTIVE 

289 IF ( ISTROK ( I ).E0.1. AND. DDELTACD.LT. 0,0 )IGO( I )«1 
IFCIGECI).E0.1.0R.ITRIPCI).E0.1)227*297 

227 IF(IGO(I).EO.O)GO TO 226 

IF(DELTA(I). GT .0.0. AN D.WLF OR (I). EQ .0.0)22 0*226 

220 IF ( VCUMC I ).GT. 0.00001. OR. VCUM(I).LT. -0.00001)221*222 

221 00 C I) »-VCUM CI) /D STOP 
GO TO 226 

222 PGA2TCD-PGA1ICI) 

OOCD-O.O 

IGOCI )«0 

226 IFCIGECD.EQ. 1)290*297 
♦DELETE ALGEAR.229# ALGEAR • 230 

290 IFCITRIPCD.EO.l.AND.IOPCOCD.EQ.DGO TO 297 
I0PC0CD-0 

IFCABS(FORSST(D).LE.FTCI))FORSSTCD— FTCI) 

XSVDDDCD-0.0 

XSVODCD-O.O 

IF CDELTX1 (I) .GT. 0.00001 .OR. DEL TX1 CI) • LT.-O. 00001 ) GO TO 210 
DLTX1D (I) »0.0 
GO TO 202 

210 DLTX1DCD— DELTX1 C I) ATAUF 
202 XMACD-0.0 
XMA1C I )»0.0 
XMA2CD-0.0 
XMA5CD-0.0 
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XMA3(I)-0.0 
XMA4(I)-0.0 
XMA8(I)-0.0 
XMA11 ( I ) -0.0 
XMA1DT ( I ) *0. 0 
XHA2DT (I)-O.O 
XMA3DT(I)-0.0 
XHA4DT(I)-0.0 
XMA6DT(I)-0.0 
XMA7DT C I ) -0.0 
XMA9DT ( I ) *0.0 
XMAlOD ( I ) -0.0 

♦DELETE ALGEAR.231,ALGEAR.232 

IF((PGA1I(I ) -2000.0 ) .LT.PGA1T(I).AND. 

1 PGAlT(I).LT.(PGAlI(I)+2000.0))299,298 

♦DELETE XSVHOD .4, XSVM0D.4 

IF<XVALVEtI).EQ.XBIAS(I) . AND. ICOSV ( I ) . EQ. 1 ) 400, 312 
♦DELETE ALGEAR.234,ALGEAR.273 

312 IF(ICOSV(I).NE. 1)313,314 

314 IF(XVALVE(I).NE.XBIAS(I) )GD TO 311 
298 IFtICOSVm.EO.UGO TO 311 

313 IF(PGAlT<I).GT.PGAlI(I)+2000.)292,293 

292 IF(IXSVL<I).EQ.1)G0 TO 311 
XSVDOT(I)-XSVDHN(I)*PERCNT{I) 

IPASS (I )-l 

XVALVECI)-XVALVE(I)+XSVDMHCI)*DELT4PERCNTCI) 

IF(XVALVE(I).LE.-0.13)300,303 

303 XSV<I )-XVALVE(I) 

GO TO 297 

300 XVALVEm— 0.13 
XSVDOTCD-O.O 
IXSVL ( I ) *1 
GO TO 294 

293 IF<PGAlT<l).LT,PGAlI(n-2000.)295,294 
295 IF(IXSVH<I).EQ.1)G0 TO 311 

XSVD0T(I)-XSVDMX(I)4PERCNT(I) 

IPASS { I )-2 

XVALVE(I)«XVALVE(I)+XSVDMX(I)4DELT*PERCNT(I) 
IF(XVALVE(I).GE.0.13)302, 304 

304 XSV(I)-XVALVE(I) 

GO TO 297 

302 XVALVE{I)-0.13 
IXSVH(I)-1 

294 CONTINUE 
XSVDOTm-O.O 

ICOSVd)«l 

311 IF(PGA2T(I)*GT.PGAlI(I)+4000. 0)316, 315 
316 IF(QSV(I) .LT. 00(1). AND. ICOSVCD.EQ. 1)317, 318 
! 317 XSVDQTm-0.0 
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XSVd >«XVALVEd> 

GO TO 297 

j 318 XSVD0Td)«XSVDMNd)4PERCNTd) 

XSVd )-XVALVEd> 

GO TO 297 ' / 

315 CONTINUE 

IF(NAC(I).E0.1)G0 TO 307 
320 IFdlXSVHdJ.EO.llGO TO 305 
XSVDOT(I)-XSVDNNCI) 

IPASS d ) *3 

XVALVEd)»XVALVEd)+XSVDNNd)*DELT 
IF(XVALVE(I).tF.X8IASCI) >305,306 

306 XSVd)-XVALVEd> 

GO TO 297 

305 XVALVEd)»XBIASd> 

XSV00T(I)»0.0 
IIXSVHd>-l 
GO TO 400 

307 IFdIX$VLd>.E0.1)G0 TO 308 
XSVDOT(I)-XSVDMXCI) 

IPASS d )»4 

XVALVEd>-XVALVEd)+XSVDHXd)*DELT 
IF (XVALVE(I).GE.XB IAS (I) >308,309 
309 XSVd >»XVALVEd> 

GO TO 297 

308 XVALVEd)-XBIASd> 

XSVDOT ( I ) *0»0 
IIXSVL(I)-1 

♦DELETE CSCH0D5.71,ALGEAR.278 
i ♦INSERT ALGEAR.279 

DELTX 1 d ) *0*0 
♦INSERT ALGEAR.283 

IC0SV(I)-0 
00(I>-0.0 
0SVCU(I)»0.0 

Qsvicn-o.o 

i 0SV3C I )*0*0 

VCUM(I>»0.0 
VOLIT(I)-VOLIKI) 

V0L2T (I}*V0L2Id) 

V0L3T ( I )• VOL 3 I (I > 

ITRIP (I ) *1 
PGAlTld>»PGAlId> 

PGAlTCD-PGAlId) 

PGA2TCI>-PGAlId) 

PGA3T(I)»PGAlId> 

| '♦DELETE ALGEAR.290,CSCM0D2.108 

297 IFdTRIPdKEQ. 1)430,421 

430 IF(VCUMd)*GT *0*00001 • OR • VCUH d > •LT«-0 *00001 )G0 TO 431 
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00(11*0.0 
ICU(I)-1 
GO TO 440 

431 IF(VCUH(I).LT.-0.00001)G0 TO 432 
00(1)— VCUMCD/DSTOP 

GO TO 440 

432 00(1)— VCU*(I)/DSTOP 

440 IF(QSVCUU). GT. 0,00001. OR. QSVCU(I) . LT.-O. 00001 )G0 TO 433 
GSVd )-0.0 
IQCU(I)-1 
GO TO 420 

433 IF(QSVCU(I). LT.-O. OOOODGO TO 434 
OSV(I ) — OSVCU( I ) /OS TOP 

GO TO 420 

434 QSV(I)— 0SVCU(I)/0ST0P 

420 IF ( XS V( I ).GT.XBI AS (I )♦. 000001)422# 423 

422 IF(X$V(I).GT. 0. 0) XSVOOT( I ) — XSV( I ) /OSTOP 
IF(XSV(I) .IT. 0.0)XSVD0T(I)-XSV(I)/0ST0P 
GO TO 600 

423 IF ( XS V (I ). LT. XBI AS ( I)-. 000001)424# 425 

424 XSVDOT(I)— XSV(I)/DSTOP 
GO TO 600 

425 XSVDOT ( I ) »0.0 
IXS(I)-1 

600 IF(X«A1(I).GT. 0.00001 .OP .XMA1 ( I ) . LT.-O. 00001 ) GO TO 601 
XMA1DT ( I) *0.0 

IA1(I)-1 
GO TO 602 

601 XMAIOT(I)— XHAKD/DSTOP 

602 IF(XHA2(I).GT. 0.00001 .OP .XMA2 ( I ). LT.-O. 00001 )G0 TO 603 
X*A2DT(I)»0.0 

IA2 (I )-l 
GO TO 604 

603 XHA20T(I)— XMA2 ( I ) /DSTOP 

604 IF(XHA3(I).GT. 0.00001 .OP . XMA3 ( I ). LT.-O. 00001 )G0 TO 605 
XM3DT (I ) *0.0 

IA3d)-l 
GO TO 606 

605 XHA30T(I)— XHA3(I)/DST0P 

606 IF(XHA4(I).GT. 0.00001 .OP . XMA4 ( I ). LT.-O. 00001 )G0 TO 607 
XHA40T(I)-0.0 

IA4(I )-l 
GO TO 600 

607 XHA4DT( I )■— XMA4 (I ) /DSTOP 

608 IF(XMA6(I).GT. 0.00001 .OP .XMAfc ( I ) . LT.-O. 00001 ) GO TO 609 
XHA6DTC I) »0.0 

IA6 (I )«1 
GO TO 610 

609 XMA6DT(I ) — XMA6(I ) /DSTOP 
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610 IF(XNA7(I).GT. 0.00001 .OR . XHA7 <I) . LT.-O. 00001 ) GO TO 611 
XMA7DT C I ) »0.0 

IA7CI ) "1 
GO TO 612 

611 XKA7DTH)— XMA7(I)/DST0P 

612 IF(XMA9<I).GT. 0.00001 .OR . XMA9(I) . LT.-O. 00001 )G0 TO 613 
XMA9DT I I ) *0.0 

IA9(I)-1 
GO TO 616 

613 XHA90TCI )»-XMA9(I J/DSTOP 

616 IF(XMA10(I).GT. 0.00001 . OP. XMA10CI ). LT.-O. OOOODGO TO 615 
XMA10D ( I ) »0.0 
IA10(I)-1 
GO TO 621 

615 XMAIOD(I) — XMAlOm/DSTOP 
C THESE SWITCHES ARE EITHER ZERO OR ONE 
621 IF(ICU(I)+I0CUII) + IXS(I) + IAl(I)+IA2m+IA3m + IA6(I) + IA6(I) 

1 +IA7<I) + IA9(I) + IA10m .EQ. 11 ) ISTROK { I )-0 

I2-2*I+NSTRUT-1 

♦DELETE At GEAR • 301# ALGEAR .301 

■ C ZSSC IS A PERCENTAGE OF SB < 1 1 FOR ACTIVATING CONTROL 
♦DELETE CSCH0D5.77#CSCM0D5 .77 
1 (VMASSID^RDSLPtD) 

* ^DELETE ALGEAR. 313# ALGEAR.313 

IF(IGE(I).EO.O)GO TO 131 
WLFOR (I)-WLFORP 
INDEACT ( I )*2 
EPSILOm-EPSROL(I) 

GO TO 651 

131 IF(SC1#I).LE.ES(I))G0 TO 651 
IF(HMM(I).EQ.O)GO TO 651 
♦INSERT ALGEAR.330 

IF<S(1#I).LE.ES(I).AND.ITPIP(I).E0.1)G0 TO 658 
♦DELETE ALGEAR. 338# ALGEAR . 338 

658 P1(I)-PGA1T(I)/166. 

659 VOLANT(I)"VOLANT(I)+OSVN(I) ♦DELT-QPUMPS ( I )*DELT 

♦DELETE ALGEAR. 356#ALGEAR. 356 

IF ( S< 1# IJ.LE.ES (I). AND. ITRIPm.EQ.l)662#610 
610 CALL LINITS(XSV(I )# XSVDOT C I )# XSVHAXt I)#XSVHINd)J 

CALL FL0ZE2<PSd)#PRd>#Pld)#XLPSVld)#XLPSV3d>#RCLSVd>#DSVd) 
♦INSERT ALGEAP.397 

IGE (I )-0 
ITRIP f 1 1 • 0 

♦INSERT ALGEAR .612 

IFdHODEdJ.EQ.OJGO TO 55 
IF(ISTR0K(I).E0.1)IGE(I)-1 
♦INSERT ALGEAR. 639 

IF(IGE(I).EQ.1.AND.IC0SV(I).E0.1)G0 TO 63 
IF(DELTA(I).GT.0..AND.IG0CI).E0.1)G0 TO 63 
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♦DELETE M0D329.4iM0D 329.5 

IF(S(liI).NE.0.0.0R.AICd).NE.l.)64i63 
63 DPI (I ) *0*0 

(♦INSERT M0D329.9 

lF(SdiI)«LE.ESd))GO TO 29 
♦DELETE ALGEAR.526iALGEAR.526 

IFdGEd) .EQ.DGO TO 29 
♦DELETE ALGEAR.535iALGEAR.538 

♦DELETE M00329.10iM00329.10 

29 I9-I+9+NSTRUT 

♦OELETE CSCMOD2.140iCSCM002.140 

27 I6»3* I+6*N$TRUT-2 

♦INSERT CSCM0D2. 145 

CALL LIMITS(XSVd)iXSVDOTd)iXSVMAXd)iXSVMINd)) 

CALL LIMITS ( XSVDOT d)iXSVDDd)iXSVDMXd)iXSVDMNdD 
CALL LIMITS<XSVDDd)iXSVDDDd>iXDDMAXd)iXDDMINd>> 

♦INSERT GENFIX.8 

2 iIGEiRDSLPiITRIPiICUiIQCUiIXSiIA1iIA2iIA3iIA4i 

3 IA6iIA7iIA9iIA10iIG0 

♦DELETE ACTNG.58iACTNG.50 

DIMENSION IPST0P<5)iAIC(5)iPGAlTC5)iIGE(5)iRDSLPmiITRIP<5)i 

1 ICU(5)iIQCU(5)iIXS(5)iIAl(5)iIA2(5)iIA3(5)iIA4(5)i 

2 IA6(5)iIA7(5)iIA9(5)iIA10(5)iIG0(5) 

♦DELETE ACTNG.103iACTNG.103 

IF(SDlUiI).LT.O.O.AND.PGAlTld).LE.-1600.0)PGAlTd) — 1600.0 
IF(ITRIP(I). EQ.DGO TO 101 
♦DELETE ACTNG.157iACTNG.l57 

IF{A8S(FTd))*LE.F0RCHTd).AND.S{liI).LE.E$d))G0 TO 150 
♦DELETE ACTNG.160i ACTNG.160 

FOPSST(I)«-FT(I) 

♦DELETE AC TNG .162# AC TNG. 162 

IFdMODEd)*EQ.O.AND.S(liI).LT.ESd))GO TO 421 
♦DELETE ACTN6.163iACTNG.164 

♦DELETE ACTNG.166iACTNG.166 

801 IF<S(l/I).GT.ESd))ISTROK(I)»l 

IF(SDldiI)*LE.0.8.AND.IFRd).EQ.0)G0 TO 2 
♦INSERT ACTNG.168 

IFR(I)-0 

♦DELETE ACTNG.199iACTNG.l99 

158 IF(ABS(FTd)).LE.FORCHTd ) . AND .S(1»I).LE.ES(I))G0 TO 500 
♦DELETE ACTNG.210iACTNG.210 

IFdMODEd).EQ.O)GO TO 421 
♦DELETE ACTNG.211iACTNG.211 

IF(S(liI).GT.ES(I))287i289 
287 I STROK (I ) *1 
ICUdJ-0 

j IQCU(I)-0 

I IXS{I>-0 

C THE FOLLOWING LOGIC. RETURNS THE GEARSiDURING REBOUND j TO INITIA1 
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C CONDITIONS IN THE EVENT THE GEAR CONTACTS THE SURFACE BEFORE 

C THE LOGIC BETWEEN STATEMENTS 226 AND 421 IS FULLY EFFECTIVE 

289 IF(ISTR0Km.E0.1.AND.DDELTA(I>.LT.0.0)IG0m«l 
IF<IGE(I) . EQ. 1. OR. ITR I P(I).EQ. 1)227*297 

227 IF(IGO(I).EQ.O>GO TO 226 

IF (DE LTA Cl). GT. 0. 0. AND. WLFORCD.EO. 0.0)220# 226 

220 IF C VCUM ( I). GT. 0. 00001. OR. VCUMC I ).LT. -0.00001)221*222 

221 QOm— VCUMtn/DSTOP 
GO TO 226 

222 PGA2Tm-f>GAlI(I) 

00(I)-0.0 

iGotn-o 

226 IFCIGE(I). EO. 1 ) 290> 297 
♦DELETE ACTNG.212*ACTNG.213 

290 IFCITRIP(I) *EQ*1« AND. IOPCOI I ) .EQ.1 )G0 TO 297 
I0PC0m-0 

IFCA9S(F0RSST(I))*LE*FT(I))F0PSST(II»— FT(I) 

XSVDDDm-0.0 
XSVDD ( I ) *0.0 

IF(DELTXl(I).GT.O. 00001. OR. DELTX1 ( I) .LT. -0.00001 )G0 TO 210 
DLTX1D ( I ) »0.0 
GO TO 202 

210 OLTXID(I) ■-DELTXK I ) ATAUF 

202 XMA(I)-0.0 

XMAim-0.0 
XMA2(I)-0.0 
XMA5CIJ-0.0 
XMA3(I)-0.0 
XMA4{ I )»0.0 
XMA8CD-0.0 
XMA1KD-0.0 
XMA1DTCD-0.0 
XMA2DT (I ) «0.0 
XMA3DT { I ) «0»0 
XMA4DTC I ) *0.0 
XMA6DT ( I ) "0 *0 
XMA70T C I ) *0* 0 
XMA9DT t I ) "0.0 
XMA10D ( I ) *0*0 

♦DELETE ACTNG.214 * ACTNG. 215 

IF((PGA1ICI)-2000.0).LT.PGA1TCI).AND. 

1 PGA1T(I).LT.(PGA1I(I ) +2000.0) >299*298 
♦DELETE XSVM0D.9>XSVM0D.9 

IF(XVALVE{I).EQ.XBIASCI),AND.ICOSVCI).EQ. 1)400, 312 
♦DELETE ACTNG.217*ACTNG.253 

312 IFCICOSVm.NE. 1)313*314 

314 IF ( XVALVE CI)«NE«XBIAS(I))GO TO 311 

298 IFCICOSVCIJ.EQ.DGO TO 311 

313 IF <PGAlTtI).GT.PGAlim +2000. >292*293 
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292 IFCIXSVLtI).EQ.l)GO TO 311 
XSVDOTtD-XSVDNNtU+PEPCNTCI) 

ipass m«i 

XVALVECI)-XVALVEtI)+XSVDNNtI)*DELT4PERCNTCI) 
IF ( XV ALVE Cl). IE. -0.13) 300# 303 

303 XSVCI)-XVALVECI) 

GO TO 297 

300 XVALVECI)— 0.13 
XSVDOTCD-O.O 
IXSVl < I ) - 1 
GO TO 294 

293 IF(PGA1T(I).LT.PGA1ICI )-2000. )295# 294 
295 IFCIXSVHCD.EQ.DGO TO 311 

XSVDOTCI)-XSVDMXCI)*PERCNTCI) 

IPASSCD-2 

XVALVEtI)-XVALVEtI)+XSVDMXCI)*DELT*PERCNTtI) 
IF C XV ALVE C I ).GE. 0.13)302# 304 

304 XSVCI )-XVALVE(I) 

GO TO 297 

302 XVALVE (I)-O. 13 • 

IXSVH C I )»1 

294 CONTINUE 
XSV00T(I)-0.0 
ICOSVCD-l 

311 IFtPGA2TtI).GT.PGAlItI)+4000.0)316#315 

316 IFCQSVCI).LT.Q0CI).AND.IC0SVCI).EQ.1)317#318 

317 XSVDOTCD-O.O 
XSVCI )-XVALVE C I ) 

GO TO 297 

318 XSVDOTCI)-XSVDMNCD*PERCNT(I) 

XSVCI )-XVALVECI) 

GO TO 297 
315 CONTINUE 

IFCNACCD.EO.DGO TO 307 
320 IFCIIXSVHCD.EQ.DGO TO 305 
XSVDOTCD-XSVDNNCI) 

IPASSCD-3 

XVALVEC D-XVALVE t I) ♦XSVDMNt I) *DELT 
I Ft XVALVE CD.LE.XBIASCI)) 305# 306 

306 XSVCI )-XVALVECI) 

GO TO 297 

305 XVALVECD-XBIASCI) 

XSVDOTCD-O.O 
IIXSVHCI )-l 

GO TO 400 

307 IFCIIXSVLCD.EO.DGO TO 308 
XSVDOTCD-XSVDHXCI) 

IPASS Cl )-4 

XVALVEC D-XVALVE Cl )+XSVDHX(I)*DELT 
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309 


308 


IF(XVALVE(I).GE.XBIAS(I) >308,309 

XSVm-XVALVECI) 

GO TO 297 
XVALVE(I)»XBIAS(I) 

XSVOOT (I) "0.0 
IIXSVL ( I) *1 

♦DELETE CSC*OD5.87#ACTNG.256 
♦INSEPT ACTNG.257 

DELTXKIJ-0.0 
♦INSERT ACTNG.261 

IC0SV<I)«0 
Q0d)-0.0 

osvcum-o.o 

Qsvim-o.o 

QSV3(I)-0.0 

VCUM(I)-0.0 

VOLIT(I)-VOLIKI) 

VOL 2T(I)«V0L 21(1) 

V0L3T(I)*V0L3I(I) 

ITRHMD-1 

PGA1T1(I)»PGA1I(I) 

PGAlT(I)-PGAlId) 

PGA2T(I)-PGA1I(I) 

PGA3T(I)-PGAlim 
♦DELETE AC TNG #268# AC TNG* 272 

297 IF(ITRIP(I)#E0#1 ) 430# 421 

IF(VCUM(I).GT. 0.00001. OR. VCUM ( I > .LT. -0.00001 )G0 TO 431 

oom-o.o 

ICU(I)-1 
GO TO 440 

IF(VCUM(I).LT .—0. 00001 ) GO TO 432 
00(1)— VCUM(I)/DSTOP 
GO TO 440 

00(1) — VCUM< I ) /DSTOP 

IF(QSVCUd). GT. 0.00001. OR. OSVCU(I) .LT. -0. 00001 )G0 TO 433 
QSV(I )-0.0 
IQCU(I)-1 
GO TO 420 

IF(QSVClld) .LT.— 0.00001 ) GO TO 434 
OSV(I)— OSVCUd) /DSTOP 
GO TO 420 

QSV (I ) —OSVCUd ) /DSTOP 
IF (XSV(I).GT.XBI AS (I) +.000001)422# 423 
IFfXSV(I) .GT. 0.0) XSVDOT ( I )■— XSV(I ) /DSTOP 
IF (XS V( I ) .LT . 0.0)XSVD0T(I)-XSV(I)/DST0P 
GO TO 600 

IF (XSV(I).LT.XBIAS(I)-. 000001)424# 423 
XSVDOT(I)— XSV(I) /DSTOP 
GO TO 600 


430 


431 


432 

440 


433 


434 

420 

422 


423 

424 
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425 XSVDOT ( I ) "0.0 
IXSCI )-l 

600 IF(XMA1CI).GT. 0.00001 .OR .XMA1 ( I ) . LT .-0. 00001 ) GO TO 601 
XMA1DT (I )*0.0 

IAim-1 
GO TO 602 

601 XMAIDT(I) — XMAim/DSTOP 

602 IF<XMA2(I).GT. 0.00001 .OR .XHA2 (I) . LT .-0.00001 >G0 TO 603 
XMA2DT ( I ) *0 .0 

IA2 (I )-l 
GO TO 604 

603 XMA2DTJ I) "-XMA2 < I ) /DSTOP 

604 IF(XMA3(I).GT. 0.00001 .OR .XMA3 (I) . LT .-0.00001 ) GO TO 605 
XMA3DT <1 )»0.0 

IA3 {I )»1 
GO TO 606 

605 XHA3DT(I> — XHA3 ( I ) /DSTOP 

606 IF(XMA4(I).GT. 0.00001 .OR .XMA4 (I) . LT.-O. 00001 )G0 TO 607 
XHA4DT (I )*0.0 

I A4 (I ) »1 
GO TO 608 

607 XWA4DT(I)»- XMA4 C I ) /DSTOP 

608 IF!XMA6(I).GT. 0.00001 .OR . XMA6 C I ) • LT.-O. 00001 ) GO TO 609 
XMA6DT ( I ) *0.0 

IA6(I)-1 
GO TO 610 

609 XMA60TCI)— XHA6 ( I ) /DSTOP 

610 IF(XMA7(I).GT. 0.00001 .OR .XMA7 U ). LT.-O. 00001 )G0 TO 611 
XMA70TCD-0.0 

IA7(I )-l 
GO TO 612 

611 XMA7DT(I) ■— XMA7 (I) /DSTOP 

612 IF(XHA9(I).GT. 0.00001 .OR .XMA9 ( I ). LT .-0.00001 )G0 TO 613 
XMA90T (I )«0.0 

IA9(I)-1 
GO TO 614 

613 XHA9DT(I) »-XMA9( 1 1 /OSTOP 

614 IF(XMA10(I).GT. 0.00001 . OR. XMA10< I) .LT .-0.00001 )G0 TO 615 
XHA10D ( I ) »0.0 

IA10CD-1 
GO TO 421 

615 XHA10DCI)*—XMA10(I) /DSTOP 

C THESE SWITCHES ARE EITHER ZERO OP ONE 
421 IF(ICUm+IQCU(I) + IXSm+IAim+IA2(I)+IA3(I)*IA4(I)+IA6U 
i ♦iA7m*iA9<miAiom .eq. idistrokui-o 
I2»2*I+NSTRUT-1 

♦DELETE ACTNG.285*ACTNG.285 

C ZSSC IS A PERCENTAGE OF $8(1) FOR ACTIVATING CONTROL 
♦DELETE ACTNG.293* ACTNG. 293 
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1 (VHASS(I)4RD$LP(I)) 

♦DELETE ACTNG.299*ACTNG.299 

IF(IGE(I).EQ.O)GO TO 131 
WLFOR(I)-WLFORR 
INDEACTC I )«2 
EPSILO(I)-EPSROL(I) 

GO TO 451 

131 IF(S(l*I)«LE.ES(I))GO TO 451 
IF(HHH(I).EQ.O)GO TO 451 
♦INSERT ACTNG.316 

IF<S(l>I).lE.ESm.AND.ITRIP(I).EQ.l)GO TO 458 
♦DELETE ACTNG.324*ACTNG.324 

458 Pim-PGA1T(I)/144. 

459 V0LANT(I)«V0LANT(II+0$VN( I J ♦DELT-QPUHPS ( I )*DEL T 

♦DELETE ACTNG.340*ACTNG.340 

IF<SU*I).LE.ES(I).AND.ITRIP(I).EQ.1)462*410 
410 CALL LIMITS<XSVm*XSVDOT<n*XSVHAX<I>*X$VNIN(I>) 

CALL FL0ZE2{PSm*PR(I>*Pim*XLPSVlII)*XLPSV3<I)*RCLSVm*DSVCI)* 
♦IDENT H0D2235 

♦DELETE H0D2203.41*H0D2203.41 

IF(DELTA(I).GT.O.) IGO(I) - 0 

♦ DELETE H0D2203. 235* H0D2203 .235 

IFCITRIP(I).EQ.l) GO TO 63 

♦ DELETE H0D2203.277* H0D2203 .277 

IF(DELTA(I).GT.O. ) IGO(I) ■ 0 
♦IDENT M0D2342 

♦DELETE H0D2203.216*H0D2203.216 
1 (VMASSII)*REDSLP(I)) 

♦IDENT M0D3028 

j ^DELETE HOD 2203. 452* HOD 2203 *452 
! 1 C VMASS CI)4REDSLPCD) 
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